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IDENTIFICATION 


PRODUCT ID: AC-T777A-MC 

PRODUCT TITLE: CZTKFA TK25 FRT END FUNC @2 
PRODUCT DATE: MARCH, 1984 

DEPARTMENT: TAPE DIAGNOSTIC ENGINEERING 
AUTHOR ; DICE SYSTEMS, INC. 


COPYRIGHT (C) 1984 By 
DIGITAL EQUIPMENT CORPORATION, 
WESTBORO, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 
An TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
Pomakatiae CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 


THIS IS A POP-11/LSI RESIDENT OIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY OF 
AN TK2S MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM (Q-BUS OR 
UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 
CZTKF, CZTKG, CZTKH, yo tae RUN EXAMPLES, AND TEST DESCRIPTIONS HAVE 
BEEN PROVIDED FOR EACH PROGRAM 


THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS, AND 
AID IN DEVICE REPAIR. REFERENCE THE FOLLOWING DIGITAL EQUIPMENT DOCUMENTS: 


1. CIQPMAO XxDP+ ~~ a S MANUAL; OOCUMENT NUMBER AC -S296A-AC; 
DATE: 14 JULY 1980 


1.1 REVISION HISTORY 
NEW RELEASE APRIL 1984 


El 
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2.0 REQUIREMENTS 


2.1 HARDWARE REQUIREMENTS 


PDP-11 FAMILY PROCESSOR WITH 32k WORDS OF MEMORY 
TK25 MAGTAPE SUBSYSTEM (ORIVE AND CONTROLLER) 
CAUTION: OIAGNOSTIC REQUIRES 32k WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 


2.1.1 OPTIONAL HARDWARE - 


FOUR TK2S5 CONTROLLERS PER PDP-11, ONE 
DRIVE PER CONTROLLER 


2.2 SOFTWARE REQUIREMENTS 


PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
POP-11 DIAGNOSTIC LOADEF /MONITOR (XXDP-+) 


2.3 PREREQUISITES 


FUNCTIONAL PDP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 


Fi 
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3.0 OPERATING INSTRUCTIONS - OPERATOR COMMANDS 


3.1 OPERATOR COMMANDS 


THE TK25 DIAGNOSTICS ARE POP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE PROGRAMS. 
ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN THE PDP -11 
PROGRAMMER'S MANUAL “CIQPMAO XxDP” PROGRAMMER'S MANUAL NUMBER AC -S296A-AC. 


BOOT THE DIAGNOSTIC XXDP+ MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 


CHMDLEO XXDP+ DL MONITOR 
BOOTED VIA WNIT O 
28K NON-UNIBUS SYSTEM 


ENTER DATE <DD-MMM-YY>: 29-JAN-82 
RESTART ADDRESS: 152010 }# ~ 
THIS IS XxXDP+ TYPE “H” OR “H/L” FOR HELP. 


-R CZTKFA 
CZTKFA.BIC 


DRS -EO 

CZTKF -A-O 

CZTKFA TK-25 FRT END FUNC @2 UNIT IS TK25 
RSTRT ADR 147642 

DR>START/FLAG: PNT : HOE 


THE ABOVE COMMAND WILL STA‘T THE DIAGNOSTIC. THE COMMAND HAS TWO 
ee ON WHICH ARE “PRINT EACH TEST NUMBER AS EXECUTED” AND “HALT ON 


Gl 
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3.2 HARDWARE PARAMETERS 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” QUESTION TO ASK IF THE 
HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT’S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSOB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 


ON A _“Y" CYES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL THEN 
BE ASKED TO ALLOW THE OPERATOR TO SELECT iHE UNITS TO Be TESTED. A VALUE, 
IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE 
THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A atin aan B 
“(0)” INA y apg SE INDICATES THAT A DECIMAL NUMBER IS REQUIRED AS A 
RESPONSE. AN “(0)” INDICATES AN OCTAL NUMBER IS BEING SOLICITED. AN "(L)” 
THAT A LOGICAL RESPONSE IS TO BE MADE: “Y” FOR YES, “N’ FOR NO. 


UNITS (0D) ? «< ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADORESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE “ UNITS ?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


Hi 
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3.3 SOFTWARE PARAMETERS 


THE 
FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. THEY 
ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? < TYPE “Y” TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED. > 


INHIBIT ITERATIONS (L) N ? < TYPE “Y” TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 


ENABLE CONTROLLER RAM DUMP ON ERROR (L) N? < TYPE “Y" TO DUMP 
SELECTED RAM CONTENTS IN THE 


CONTROLLER MODULE. > 


SEQ 7 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 
4.1 SUCCESSUL RUN EXAMPLES 


4.1.1 SUCCESSFUL RUN EXAMPLE - CZTKFA - 


TST: 001 INITIALIZATION @2 TEST 
TST: O02 OFF-LINE REJECT AND REWIND TEST 
TST: 003 BASIC WRITE TEST 
TST: 004 BASIC READ DATA (FORWARD AND REVERSE) TEST 
TST: OOS STAND-ALONE MANUAL INTERVENTION NOT EXECUTED TEST 
TST: 006 STAND-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 
TST: 007 ae SCOPE LOOPS NOT EXECUTED TEST 
CZTKF EOP 
0 TOTAL ERRS 


NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 


CZTKFA TK-25 FRT END FUNC 02 
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4.2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGE 


ERROR MESSAGE EXAMPLE 


4 003 BASIC WRITE TEST 
CZTKF HRD ERR 0030 


3 ON UNIT 00 TST 003 SUB 001 PC:026500 
TSSR INCORRECT AFTER WRITE COMMAND, MORE BITS SET THAN SSR 


TSSR=000000 


J1 
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TERMINATION CLASS CODE = NORMAL TERMINATION 
#eeeeREPLACE CONTROLLERecece 


PACKET ADORESS*030510 
PACKET WORD #0*140005 


PACKET WORD #3000024 


MESSAGE BUFFER ADDRESS=030400 


MESSAGE BUFFER CONTENTS: 
MESSAGE BUFFER HEADER 
DATA FIELD LENGTH 
RESIDUAL BYTE COUNTER 
XSTATO CONTENTS 

XSTAT1 CONTENTS 

XSTAT2 CONTENTS 

XSTATS CONTENTS 


=100020 
#000012 
#000000 
#000300 
#000000 
#101000 
=000000 


SEQ 9 
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5.0 PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/23 (LSI) PROCESSOR 
WITH A LA-120 CONSOLE. 


RUN IN NON-ITERATIVE MODE. EACH TEST IS RUN ONCE, WITH NO 


THE PROGRAMS 
ITERATIONS. THEREFOR, THE DEFAULT MODE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 


S.1 RUN TIMES - CZTKF 


TEST N/I DEF 
NUMBER = ° — ° 


1 

2 2 2 

3 41 ay 
4 70 70 
5 N/A N/A 
6 N/A N/A 
7 N/A N/A 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 4 IN ONE COMMAND: 


Q.V. 1 MIN 5S SECONDS 
DEFAULT 1 MIN SS SECONDS 


Li 
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6.0 TEST DESCRIPTIONS - CZTKF 


6.1 TEST 1 - INITIALIZATION #2 


SREAEHEAESEAEEESESESOEEHESESESEESEEEEEEOEEEEEEEEEEEOOEESEEEEES 


* NOTE: IF THIS TEST DETECTS AN ERROR REPLACE THE TK25'S ° 
# CONTROLLER * 


SHRESEAAAHASOSSESHAASOESESESEESESEEEEEEEEEDEEEEOEOEEEEEEEEEEEOEEE 


THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE CONTROLLER TO ITS 
INITIALIZED STATE FROM VARIOUS CONDITONS. 


Mi 
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6.2 TEST 2 - OFF LINE REJECT AND REWIND TEST 


THIS TEST VERIFIES BASIC TAPE MOTION COMMAND DECODING AND BASIC OPERATION 
OF THE REWIND POSITIONING COMMAND. IT DOES NOT NECESSARILY DEMONSTRATE 
THAT THE TRANSPORT CAN BE REWOUND FROM AN ARBITRARY POSITION ON THE TAPE. 
SUBSEQUENT TESTS IMPLICITLY CHECK THE OPERATION OF THE REWIND COMMAND SINCE 
THEY MUST TYPICALLY REWIND THE TAPE IN IN THE NORMAL COURSE OF THEIR TEST 
SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING THREE SUBTESTS: 


6.2.1 TEST 2, SUBTEST 1: - 


THIS SUBTEST VERIFIES THAT A REWIND COMMAID, WITH THE CLEAR VOLUME CHECK 
(CvC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK (VCK) FLAG IS SET. 


6.2.2 TEST 2, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT A REWIND COMMAND WITH A CVvC=1 CLEARS VCK AND 
RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 


Ni 


CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 20-APR-84 08:12 PAGE 14 
USER DOCUMENTATION ; ee 


6.3 TEST 3 - BASIC WRITE TEST 


POREEEEEEAEEEEOEEEEEEEDEEEOO006606066660000606600060006660000000086 
# NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE ANY «¢ 
*# TAPE ERRORS WILL SE DISPLAYED AS TAPE STATUS ALERT . 
ORAAOEEEEAEREOEEEEEEEEEEEEEEEEEEEEEEEEOO066600006006600006008086 


THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES CORRECTLY, 
UP TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY WRITTEN ONTO THE 
TAPE CORRECTLY. THE TESTING IN THIS TEST IS LIMITED TO VERIFYING THAT THE 
tne es TERMINATED CORRECTLY WITH THE CORRECT REGISTER, BUFFER, AND RAM 


6.3.1 TEST 3, SUBTEST 1: - 


THIS SUBTEST VERIFIES THAT A WRITE COMMAND (ANY VALID MODE CODE) WITH THE 
CLEAR VOLUME CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK (VCK) 
FLAG IS SET. ALL VALID MODE CODES ARE CHECKED (WRITE DATA, WRITE RETRY). 


6.3.2 TEST 3, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT WRITE DATA COMMANDS WITH CVC=1 AND THE SWAP 
BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE BYTE COUNT (RECORD SIZE) 
VARIES FROM 20 THROUGH 64K IN VARYING INCREMENTS (DEPENDING ON WHETHER OR 
NOT THE DIAGNOSTIC IS RUNNING ON THE LONG VERIFICATION MODE). THE TAPE IS 
NOT REWOUND BETWEEN SUCCESSIVE RECORDS BUT IS REWOUND AFTER THE FINAL 
RECORD IS WRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED IN THE DATA 
BUFFER. AFTER EACH BLOCK IS WRITTEN, THE TTSR AND THE TSBA REGISTERS AND 
THE MESSAGE BUFERS ARE CHECKED. 


6.3.3 TEST 3, SUBTEST 3: - 
THIS SUBTEST VERIFIES THAT WRITE DATA COMMANDS WITH CVvC=1 AND THE SWAP 


BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE IS IDENTICAL TO 
THAT USED IN SUBTEST 2. THE RESULTS SHOULD BE THE SAME. 


‘6.3.4 TEST 3, SUBTEST 4: - 


THIS SUBTEST VERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL BUFFER ADDRESS 
IS REJECTED WITH THE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE. 


Be 
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6.3.5 TES) 3, SUBTEST 5: - 


THIS SUBTEST VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA BUFFER 
STARTING IN NONEXISTANT MEMORY TERMINATES WITH THE PROPER ERROR STATUS 
— TAPE, THIS TEST IS SKIPPED IF NONEXISTANT MEMORY CAN NOT BE 


SEQ 14 


6.3.6 TEST 3, SUBTEST 6: - 


THIS SUBTEST VERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA BUFFER 
STARTING IN EXISTANT MEMORY BUT RUNNING INTO NONEXISTANT MEMORY TERMINATES 
WITH THE PROPER ERROR STATUS. A LARGE ENOUGH RECORD SIZE IS SPECIFIED SUCH 
THAT TAPE IS ACTUALLY MOVED AND WRITTEN. 


Ce 
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6.4 TEST 4 - BASIC READ DATA TEST (FORWARD AND REVERSE ) 


COOOOOEEEEEES OOREEDEEEDEEEEEEEEEEEEEDEEEEDEEDOOEEEEOEEEOEE 
¢ NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE « 
¢ ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT « 


SHEOASERAAHIASHEHGADLESHOHADAHAAHABHOHHEROEREEREENHAKDHEHAROEH 


THIS TEST ies a THAT THE READ FORWARD AND READ REVERSE COMMANDS OPERATE 
PROPERLY ARIOUS COMBINATIONS OF ODD AND EVEN DATA BUFFER BOUND 

RECORD Sizes AND BYTE SWAP CONTROL VARIABLES ARE USED. THE TEST FURTHER 
VERIFIES THE WRITE DATA COMMAND BY ACTUALLY READING AND VERIFYING WRITTEN 
DATA. ALSO TESTED ARE PROPER TERMINATIONS ON EXCEPTIONAL OR ERROR 
CONDITIONS: RECORD LENGTH LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, 
ILLEGAL DATA BUFFER ADDRESSES, AND NONEXISTANT DATA BUFFER ADDRESSES. 


6.4.1 TEST 4, SUBTEST 1: - 


THIS SUBTEST VERIFIES THAT THE READ FORWARD COMMAND WITH SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH A SERIES OF TEST 
RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND AGAIN 
AND THE RECORD READ SEQUENTIALLY AND RESULTS ly DATA, ETC.) VERIFIED. 
THE BYTE COUNT ON EACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


6.4.2 TEST 4, SUBTEST 2: - 


THIS SUBTEST VERIFIES THAT THE READ DATA COMMANDS WITH CvC*1 AND THE SWAP 
BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE IS IDENTICAL TO 
os USED IN SUBTEST 2. THE RESULTS, EXCEPT FOR RAM CONTENTS SHOULD BE THE 


6.4.3 TEST 4, SUBTEST 3: - 


THIS SUBTEST VERIFIES THAT A READ FORWARD COMMAND READING A RECORD LONGER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
RECORD LENGTH (RLL) BIT SET. 


6.4.4 TEST 4, SUBTEST 4: - 


THIS SUBTEST VERIFIES THAT A READ FORWARD COMMAND READING A RECORD SHORTER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
RECORD LENGTH SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 

COUNT (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE PROPER NONZERO VALUE (E.G. 
THE DIFFERENCE BETWEEN THE ACTUAL BYTE COUNT AND THE ACTUAL RECORD LENGTH). 


De 
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6.4.5 TEST 4, SUBTEST 5S: - 


nee ay 34 VERIFIES 

A READ REVERSE COMMAND OPERATES PROPERLY. THE 
TAPE IS FIRST REWOUND AND THEN WRITTEN WITH A SERIES OF TEST RECORDS 
VARYING IN LENGTH ANDO DATA CONTENT. THE TAPE IS THEN READ IN REVERSE 
SEQUENTIALLY AND ia 3 RESULTS 5s ers DATA, ETC.) VERIFIED. THE BYTE COUNT 
ON EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE EXPECTED RECORD, 
SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 


6.4.6 TEST 4, SUBTEST 6: - 
THIS SUBTEST VERIFIES THAT THE READ DATA COMMANDS WITH CvC*1 AND THE SWAP 


BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST SEQUENCE IS IDENTICAL TO 
awa USED IN SUBTEST 2. THE RESULTS EXCEPT FOR RAM CONTENTS SHOULD BE THE 


6.4.7 TEST 4, SUBTEST 7: - 
THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND, READING A RECORD LONGER 


THAN THE SPECIFIED BYTE COUNT, CAUSES A TAPE STATUS ALERT TERMINATION WITH 
THE RECORD LENGTH LONG (RLL) BIT SET. 


6.4.8 TEST 4, SUBTEST 8: - 
THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA BUFFER 


STARTING IN NONEXISTANT MEMORY TERMINATES WITH THE PROPER ERROR STATUS 
WITHOUT MOVING THE TAPE. 


6.4.9 TEST 4, SUBTEST 9: - 


THIS SUBTEST VERIFIES THAT ILLEGAL BUFFER ADDRESSES ae A FUNCTION REJECT 
TERMINATION WITH ILLEGAL ADDRESS CILA) ERROR BIT SET 


6.4.10 TEST 4, SUBTEST 10: - 


THIS SUBTEST VERIFIES THAT A DATA BUFFER ADDRESS, REFERENCING NONEXISTANT 
MEMORY, CAUSES RECOVERABLE ERROR TERMINATION (TC#4), WITH THE NXM BIT SET 
IN THE TSSR, AND THAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 


EQ 
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6.4.11 TEST 4, SUBTEST 11: - 
THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE TAPE IS 


AT BOT RESULTS IN A FUNCTION REJECT TERMINATION WITH THE NONEXECUTABLE 
FUNCTION (NEF) ERROR BIT SET. 


6.4.12 TEST 4, SUBTEST 12: - 


THIS SUBTEST VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE TAPE IS 
eM ey Fetes THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN TAPE 


Fe 
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6.5 TEST S - MANUAL INTERVENTION 
THIS TEST MUST BE STARTED AS FOLLOWS: 


AT THE DIAGNOSTIC SUPERVISOR PROMPT “DR>”— 
TYPE “START/FLAG:PNT/TEST:5/PASS: 1” 


THE MANUAL "oe otenate TEST IS A STANDALONE ROUTINE (NOT Wt le oe ——_ 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 

THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 

SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 4. 

SELECTION CODES AND SUBROUTINES ARE: 


CODE ROUTINE 


DISPLAY THIS MENU 

REWIND AND UNLOAD COMMAND TEST 

WRITE PROTECT TEST 

FRONT PANEL ON-LINE/OFF-LINE SWITCH TEST 
RETURN TO THE DIAGNOSTIC SUPERVISOR 


ENTER MENU SELECTION: (0) ? 


Punro 


EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 
SELECTION 0 - PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 


SELECTION 1 - THIS ROUTINE INSTRUCTS THE OPERATOR TO PLACE THE DRIVE ON-LINE 
AND AT OR BEYOND BOT. THE TEST WILL THEN ISSUE THE REWIND AND 

UNLOAD COMMAND. IT WILL ALSO TELL THE OPERATOR IF THE ORIVE 

ENDED UP ON-LINE OR OFF-LINE. 


SELECTION 2 - THIS need ook INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
TAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN 
WAITS FOR THE OPERATOR 10. RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
UPON THE RE THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 

A WRITE -PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 

TAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
WRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 

AN ERROR IS REPORTED. 


SELECTION 3 - THIS TEST CHECKS THAT THE PROGRAM CAN READ THE SENSE 

OF THE FRONT PANEL “ON-LINE” BUTTON/LIGHT. THE PROGRAM CHECKS THE 

STATE OF THE CRIVE (ON-LINE OR OFF-LINE) AND PRINTS A MESSAGE TO 

NOTIFY THE OPERATOR I.E. “ORIVE IS NOW OFF-LINE” OR “DRIVE IS NOW ON-LINE”. 


SELECTION 4 - THIS WILL RETURN THE PROGRAM TO THE DIAGNOSTIC 
SUPERVISOR PROMPT. NOTE: IF THE OPERATOR FAILED TO SELECT A PASS 
COUNT OF ONE, THE PROGRAM WILL LOOP UNTIL STOPPED WITH A CONTROL C. 


Ge 
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6.6 TEST 6 - CONFIGURATION TYPEOUT 


THIS TEST MUST BE STARTED AS FOLLOWS: 


AT THE DIAGNOSTIC SUPERVISOR PROMPT “DR>” 
TYPE “START/FLAG:PNT/TEST :6/PASS: 1” 


THIS IS A_ STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL THE 
CONFIGURATION OF THE CONTROLLER MODULE AND THE TK25 SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRINTED: 


1. MICROCODE REVISION LEVEL OF THE CONTROLLER. 
2. NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER. 


3. UNIT SELECT CODE AND STATE CONLINE/OFFLINE, WRITE 
ENABLED/PROTECTED OF EACH CONNECTED TRANSPORT. 


THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 
THAT IT “SEES” TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE CAUSE 
(BAD CABLE, FAULTY UNIT SELECT DECODING IN THE TRANSPORT, £TC.).{[SINCE THE 
CONTROLLER CAN ONLY ACCESS UNIT O IF IT IS IN “STANDARD” MODE, THE PROGRAM 
WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE WRITE SUBSYSTEM MEMORY 
COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. ) 


THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
SELECTED (E.G. FROM THE INITIAL STARTUP DIALOGUE), THE ROUTINE WILL BE 
REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 


He 
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6.7 TEST 7 - SCOPE LOOPS 


THIS TEST MUST BE STARTED AS FOLLOWS: 


AT THE DIAGNOSTIC SUPERVISOR PROMPT “DR>” 
TYPE “START/FLAG:PNT/TEST: 7/PASS:1” 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE LOOPS” 

USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH THE w fer gy MODULE . 
THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL “LOOP ON ERROR” ON 

TEST CSUBTEST)” FACILITIES DON’T SEEM TO ALLOW THE OPERATOR TO TERO IN A 
PROBLEM IN THE EARLY TESTS (I.E. THE HARDWARE MAY NOT BE RESPONDING TO A 
REGISTER ACCESS, CAUSING A_ BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE THE CONFIGURATION SET UP IN THE 

HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS IS AVAILABLE: 


CODE SCOPE LOOP 


HELP. PRINT THIS MENU 

TSBA READ ACCESS 

TSSR READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 

TSOB HIGH BYTE WRITE ACCESS 

TSOB LOW BYTE WRITE ACCESS 

TSOB MAINTENANCE -MODE WORD WRITE ACCESS 
EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS THE OPERATOR 
FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE 
LOOP BACK TO THE MENU. 


NOUS wtro 


TKF -25 FR F ° 
GER DOLUMERTATLONS FUNC #2 
\ 
687 
688 
694 
695 000000 
696 
697 
703 000000 
704 002000 
705 002000 
002000 
706 
707 
708 
709 
710 
711 
712 
713 002000 
714 002000 
002000 
002000 103 
002001 132 
002002 124 
002003 113 
002004 106 
002005 000 
002006 000 
002007 000 
002010 
002010 101 
002011 
002011 060 
002012 
002012 000001 
002014 
002014 001217 
002016 
002016 053066 
002020 
002020 053226 
002022 
002022 002124 
002024 
002024 002134 
002026 
002026 053442 
002030 
002030 000000 
002032 
002032 000000 
002034 
002034 000000 
002036 
002036 000000 
002040 
002040 053420 
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TUV2A:: 


zee 
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PROGRAM HEADER 
s INITIALIZE SUPERVISOR MACROS 


BGNMOD TUV2A 


: THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNSW,BGNSF T ,BGNAU,BGNOU,BGNRPT ,BGNSE TUP 
HEADER CZTKF,A,0,655..0 


LSNAME: : sDIAGNOSTIC NAME 
-ASCII /C/ 
»ASCII /2Z/ 
-ASCII /T/ 
-ASCZII /K/ 
-ASCII /F/ 
BYTE O 
BYTE O 
.BYTE O 
LSREV:: sREVISION LEVEL 
ASCII /A/ 
LSDEPO: : 30 
-ASCII /0/ 
LSUNIT:: sNUMBER OF UNITS 
. TSPTHV 
LSTIML:: _ sLONGEST TEST TIME 
LSHPCP:: sPOINTER TO H.W. QUES. 
-WORD LSHARD 
LSSPCP:: sPOINTER TO S.W. QUES. 
-WORD LSSOFT 
LSHPTP:: sPTR. TO OEF. H.W. PTABLE 
-WORD LSHW 
LSSPTP:: sPTR. TO S.W. PTABLE 
-WORD L$SW 
LSLADP: : sDIAG. ENO ADDRESS 
-WORD LSLAST 
LSSTA:: » = sRESERVED FOR APT STATS 
LSCo:: 
-WORD O 
LSDTYP:: sOIAGNOSTIC TYPE 
-WORD O 
LSAPT:: ° 3;APT EXPANSION 


. WOR 
LSOTP:: 
oW 


sPTR. TO DISPATCH TABLE 
LSOISPATCH 


SEQ 21 


CZTKFA TK-25 FRT END FUNC #2 
PROGRAM HEADER 


003334 


LSPRIO:: 
LSENVI:: | 
LSExPi:: 
LSMREV:: 


LSExP4:; 
LSEXPS:: 
LSAUT:: 
LSOUT:: 
LS$LUN: : 
LSDESP: : 
LSLOAD: : 
LSETP:: 4 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME: : 


SEEESEESS 


z 
4 


SELES 


Je 
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sOIAGNOSTIC RUN PRIORITY 


te) 
° sFLAGS DESCRIBE HOW IT WAS SETUP 
e sEXPANSION WORD 
sSVC REV AND EDIT @ 
CSREVISION 
CsEOIT 
° sOIAG. EVENT FLAGS 
t¢) 
t¢) 
s POINTER TO DEVICE TYPE LIST 
LsOvTYP 
3sPTR. TO REPORT CODE 
LSRPT 
r) 
f¢) 
sPTR. TO ADD UNIT CODE 
L$AU 
1 nes ;PTR. TO DROP UNIT CODE 
- 3LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
LsDESC 
sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
° sPOINTER TO ERRTBL 
sPTR. TO INIT CODE 
LSINIT 
sPTR. TO CLEAN-UP CODE 
L$CLEAN 
3PTR. TO AUTO CODE 
L$AUTO 
sPTR. TO PROTECT TABLE 
L$PROT 
° ;TEST NUMBER 
e sDELAY COUNT 
. 3PTR. TO HIGH MEM 


SEQ 22 


Ke 
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i .SBTTL DEFAULT HARDWARE P-TABLE 

718 3° 

719 3 THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

720 ; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

44 : IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 

geo 

723 002122 BGNHW OFPTBL sDEFAULT HARD-P-TABLE 
002122 s L10000-L $HW/2 
002124 LSHW:: 

ons 002124 OFPTBL:: 

725 002124 172522 -WORD 172522 3s 2ND COF 2) REGISTERS. 

726 002126 000224 -WORD 224 3 INTERRUPT VECTOR 

727 002130 000240 -WORD PRIOS 3 INTERRUPT PRIORITY. 

728 002132 ENOHW 


002132 L10000: 


Le 


CZTKFA TK-25 FRT END FUNC 2 MACRO M1200 20-APR-84 08:12 PAGE 24 SEQ 24 
SOFTWARE P-TABLE 
730 .SBTTL SOFTWARE P-TABLE 
732 ; Pax) 
733 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
734 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
gece 
736 002132 BGNSW SFPTBL 
002132 000004 .WORD 110001-L$Sw/2 
002134 L$Sw:: 
ae 002134 SFPTBL:: 
738 002134 000000 TRANSTST: : .WORD 0 sENABLE RAM DUMP 
739 002136 000000 NOITS:: .WORD O ; INHIBIT ITERATION OPTION. 
ne i se. O © ITERATE, 
741 3; ..-NZ * INHIBIT ITERATE. 
742 002140 000031 LERRMAX: .WORD 25. 3 LOCAL (PER TEST) ERROR LIMIT 
743 002142 000310 GERRMAX : .WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
744 002144 ENDSW 
002144 L10001: 


Me 


F : F a MACRO . . 
Cee and 6 eR abRE END FUNC #2 M1200 20-APR-84 08:12 PAGE 26 SEQ 25 
748 
Ly -SBTTL GLOBAL EQUATES SECTION 
766 
767 
768 
re -SBTTL GLOBAL EQUATES SECTION 
771 zee 
772 3; THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
773 :; ARE USED IN MORE THAN ONE TEST. 
i i“ 
779 002144 EQUALS 3; GET STANDARD EQUATES. 
3 
; BIT DIF INITIONS ; 
; : 
100000 BIT15== 100000 
040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT1i=*= 4000 
002000 BIT10«= 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3S== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
3 
001000 BIT9== BITOS ‘ 
000400 BIT8== BiTOs 
000200 BIT7== BITO7 
000100 BIT6== BITO6 
000040 BITS== BITOS 
000020 BIT4== BITO4 
000010 BIT3== BITOS 
. 000004 BIT2== BITO2 
000002 BITi== BITO1 
000001 BITO== BITOO 


6 
s EVENT FLAG DEFINITIONS 
s EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


3 
000040 EF .START== 32. : START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 
000036 EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWRe= 28. ; A POWER-FAIL/POWER-UP OCCURRED 


; 
; PRIORITY LEVEL DEFINITIONS 
‘ 


CZTKFA TK-25 FRT END FUNC 42 


GLOBAL EQUATES SECTION 


780 
761 002144 


Ne 
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PRIO7*= 340 
PRIO6*= 300 
PRIOS== 240 
PRIO4*= 200 
PRIO3S== 140 
PRIO2*= 100 
PRIO1== 40 
PRIOO== 0 


; 
sOPERATOR FLAG BITS 


i 

EVL*= 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISRe= 100 
UAM== 200 
BOE == 400 
PNT== 1000 
PRI== 2000 
IXE*= 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE*= 100000 


KT1i1 ;DEFINE MEMORY MANAGEMENT REGISTERS 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
iakT Lt 11 VECTOR ADDRESS 


;aKTLI +s A meta ADDRESSES 


;@USER “I” — DESCRIPTOR REGISTERS 
UIPORO= 177 

UIPORi= 177602 

UIPOR2= 177604 

UIPORS= 177606 

UIPOR4= 177610 

UIPORS= 177612 

UIPOR6= 177614 

UIPOR7= 177616 


NB 
;@USER “D” PAGE DESCRIPTOR REGISTORS 
UDPDRO= 177620 


UDPOR1= 177622 

UDPOR2= 177624 

UDPORS= 177626 

UDPOR4= 177630 

UDPORS= 177632 

UDPOR6= 177634 

UDPDR7= 177636 

-ENOC 

s*USER “I” PAGE ADDRESS REGISTERS 


CZTKFA TK-25 FRT END FUNC 62 
MEMORY MANAGEMENT DEFINITIONS 


SIPARO= 


SOPARO= 
SDPARI= 1 
SOPAR2= 
SOPARS= 
SOPAR4 = 


* 177660 


172270 


B3 
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PAGE ADDRESS REGISTERS 


PAGE +NORESS REGISTERS 


SEQ 27 


C3 
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SDPARS= 172272 
SOPAR6= 172274 
SOPAR7* 172276 


-ENOC 
s KERNEL ona PAGE DESCRIPTOR REGISTERS 


172300 KIPORO= 172300 
172302 KIPORi= 172302 
172304 KIPOR2= 172304 
172306 KIPORS= 172306 
172310 KIPOR4* 172310 
172312 KIPORS= 172312 
172314 KIPOR6= 172314 
172316 KIPOR7* 172316 


IF NB 

s@KERNEL “D” PAGE 
DESCRIPTOR REGISTERS 
KDPDRO= 172320 


- ENOC 
s@KERNEL “I” PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARi® 172342 
172344 KIPAR2= 172344 
172346 KIPARS= 172346 
172350 KIPAR4*= 172350 
172352 KIPARS* 172352 
172354 KIPAR6= 172354 
172356 “ee * 172356 


s@KERNEL “D” PAGE ADORESS REGISTERS 
KDPARO= 172360 
KDPAR1= 172362 
KDPAR2= 172364 
KOPARS* 172366 
KDPAR4= 172370 
KDPARS= 172372 
KDPAR6* 172374 
KDPAR7= 172376 


D3 
OR SEARE Kee RR ANB NB nERES Ber ivr ¥PGRO M1200 20-APR-84 08:12 PAGE 27 SEQ 29 


i -SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 
788 3 
789 3 SOME GENERAL EQUATES. 
791 ' 
792 000004 ERRVEC=s= 4 s POINTER TO ERROR VECTOR she BUS TIME OUT. 
793 000060 TrIVECe= 60 s INTERRUPT VECTOR FOR CONSOLE INPUT 
794 177560 TTICSRe= 177569 s BUS ADDRESS OF CONSOLE INPUT 
a4 177562 TTIBFRe= 177562 s CONSOLE INPUT DATA BUFFER 
797 s° 
ta sBIT DEFINITIONS FOR TSSR REGISTER 
3 - 
800 
801 100000 SC= BIT15 sSPECIAL CONDITION 
802 040000 BIE= BIT14 s8US INTERFACE ERROR 
803 020000 SCE= BIT13 sSANITY CHECK ERROR 
804 010000 RMR= BIT1l2 sMODIFICATION REFUSED 
805 004000 NXM= BIT11 sNONEXISTANT MEMORY ERROR 
806 002000 NBA= BIT10 sNEED BUFFER ADDRESS 
807 001400 HIADOR= BITOS!IBITS sEXTENDED ADORESS BITS 
808 000200 SSRe BIT7 3SUB SYSTEM READY 
809 000100 OFL= BIT6 3sOFF LINE BIT 
810 000060 FATERR= BIT4!BITS sFATAL TERMINATION ERROR CODES 
+H 000016 TERCLS= BITS!BIT2:BIT1 3s TERMINATION CODES 
613 
i ; 
3 
816 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
817 . s(xXSTO) 
618 3 
819 :- 
820 
621 100000 XSOTMK= BIT15 sTAPE MARK DETECTED 
822 040000 XSORLS* BIT14 sRECORD LENGTH SHORT 
823 020000 XSOLET= BIT13 sLOGICAL END OF TAPE 
824 010000 XSORLL* BIT12 sRECORD LENGTH LONG 
825 004000 XSOWLE* BIT11 sWRITE LOCK ERROR 
826 002000 XSONEF = BIT10 sNON EXECUTABLE FUNCTION 
827 001000 XSOILC= BITS sILLEGAL COMMAND 
828 000400 XSOILA= BITS sILLEGAL ADDRESS 
829 000200 XSOMOT= BIT7 sTAPE IN MOTION 
830 000100 XSOONL® BIT6 s TRANSPORT ON LINE 
831 000040 XSOIE= BITS s INTERRUPT ENABLE 
832 000020 xSOVCK= BIT4 sVOLUME CHECK BIT 
833 000010 XSOPED= BITS | PHASE ENCODED ORIVE 
834 000004 XSOWLK= BIT2 sWRITE LOCKED 
835 000002 xSOBOT= BIT1 sBEGINNING OF TAPE 
ast 000001 XSOEOT= BITO sENO OF TAPE 
838 
839 
840 ;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
841 3s(XST1) 


842 “— 


ES 
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TK-25 REGISTER AND PACKET DEFINITIONS 
845 100000 X1.0LT © BIT15 sDATA LATE 
844 040000 X1.SPARE* AITL4 sNOT USED 
845 020000 x1.COR © BIT13 sCORRECTABLE DATA ERROR 
846 017375 X1.MBZ = BITL2¢BIT11 +BIT10-B119+BI17 -B116-B1T5 -BIT4+BIT3+BIT2-BITO sALWAYS O 
847 000400 X1.RBP = BITS sREAD B PARITY ERROR 
rod 000002 X1.UNC © BIT1 sUNCORRECTABLE DATA OR HARD ERROR 
850 s¢ 
851 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
cat sCxST2) 
te 
854 100000 X2.0PM = BIT15 ean Cec IN — (TAPE MOVING) 
855 040000 x2.RCE = BIT14 AM CHECKSUM ERROR 
856 035400 X2. SPARE = GIT13.err12.81111-81r9-8rT8. sNOT USED BY TK-25 CALWAYS=0) 
857 002000 xX2.WCF © BIT1O sWRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
858 000200 X2.EXTF = BIT7 sIF TIRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
859 000100 x2.BUFE = BIT6 sIF WRITE CHAR CMD THEN = BUFFERING ENABLED 
860 000077 X2.REV = 000077 sIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
ot) 000007 X2.UNIT = BIT2+BIT1I+BITO sIF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
863 3° 
864 sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
oes 3(XST3) 
ge 
867 177400 X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 
868 000200 X3.SPARE* BIT7 sNOT USED BY TK-25 
869 000100 X3.0PI = BIT6 sOPERATION INCOMPLETE 
870 000040 X3.REV «© BITS sREVERSE 
871 000020 X3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 
872 000010 X3.0CK = BITS sDENSITY CHECK 
873 000006 X3.MBZ *BIT2-BIT1 sNOT ‘JSED ALWAYS O 
ors 000001 X3.RIB = BITO ;REVERSE INTO BOT 
876 3° 
oye vCxST + ‘esmeriecten FOR EXTENDED STATUS REGISTER 4 
: 
879 
880 100000 xa. HSP = BIT1S sHIGH SPEED 
881 040000 x4.RCE = BITI4 Tne COUNT EXCEEDED 
882 020000 x4.TSM © BIT13 ANSPORT SPECIAL MODE 
883 017400 x4.MBZ ° BIT 12eBIT11-B1T10-B1r9.81Ta sNOT USED ALWAYS O 
aoe 000377 x4.WRC = 000377 WRITE RETRY COUNT FIELD 
886 
887 3° 
888 3 
aor sTSSR TERMINATION CODES (BIT 0-2) 
3 
891 3- 
892 
893 000006 TSREJ= 362 sCOMMAND REJECTED 
pte 000006 UNREC= 6 sUNRECOVERABLE ERROR 
896 3° 
897 3 
898 sDEVICE REGISTER OFFSETS 


899 F 


ZTKFA_T 
K-25 RE 
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t - 
177776 TSBAs* -2 
177776 TSBAL** -2 
177776 TSOB== -2 :TSDB/TSBA REGISTER 
177776 TSOBL== -2 }TSOB/TSBA REGISTER 
177777 TSBAH=* -1 
177777 TSOBH== -1 ;TSOB/TSBA REGISTER HIGH BYTE 
000000 TSSR== 0 TSSR REGISTER 
000001 TSSRH=* 1 ITSSR REGISTER HIGH BYTE 
3° 
; TSDB ADDRESS BIT DEFINITIONS 
37 
000003 A1716 = BIT1-BITO ;ADDRESS BITS 17:16 ARE IN 1:0 
3° 
; COMMAND DEFINITIONS 
5= 
000017 P.GETSTAT 217 GET STATUS 
000013 P "INIT = 13 } INITIALIZE 
000012 P- CONTROL = 12 sCONTROL COMMANDS 
000011 P FORMAT = 11 iFORMAT 
000010 P/ POSITION = 10 POSITION 
000006 P| WRTSUB “6 }SUBSYSTEM WRITE 
000005 P WRITE °§ ;WRITE 
000004 P“WRTCHAR 23 WRITE CHARACTERISTICS 
000001 P “READ =1 ;READ 
3° 
COMMAND PACKET HEADER WORD BIT DEFINITIONS 
ge 
100000 P.ACK = BITIS }BUFFER AVAIL FOR CONTROLLER 
040000 P'CVC » BIT14 | ;CLEAR VOLUME CHECK 
020000 POPP = BIT13 REVERSE SEQUENCE OF DATA BITS 
010000 P'Swe = BITI2 }SWAP BYTES IN MEMORY 
007400 P.MODE = BITLI!BIT10:IT9!6ITS EXTENDED COMMAND MODE FIELD 
000200 p.TE BIT? INTERRUPT ENABLE 
000140 PFMT= BIT6!8ITs ‘PACKET HEADER TYPE CALWAYS=0) 
000037 P'CMD = 37 'MAJOR COMMAND FIELD 
3° 
+ CONTROL COMMAND MODE CODES 
ge 
000000 PC RELEASE = 00256. ;RELEASE BUFFER 
000400 PC [REWIND = 10256. } REWIND 
001000 PC NOOP 20256. 3NO-OP 
002000 PC. TEREW = 40256. REWIND IMMEDIATE INTERRUPT 
002400 PC ERASE = 50256. SECURITY ERASE 
3° 
t CONTROLLER RAM DEFINITIONS 
000167 RMCHBEG = 167 }CHARACTERISTICS IO DATA BEGIN RAM ADDRESS 
000200 RMCHEND = 200 ‘CHARACTERISTICS IO DATA END RAM ADDRESS 
000020 RMPKTBEG= 20 }COMMAND PACKET BEGIN RAM ADDRESS 
000027 RMPKTEND= 27 ‘COMMAND PACKET END RAM ADDRESS 
000104 RMMSGBEG= 104 iMESSAGE BUFFER BEGIN RAM ADDRESS 


G3 
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Hee REGISTER AND PACKET DEFINITIONS ' 
937 000117 RMMSGEND= 117 iMESSAGE BUFFER END RAM ADDRESS 
3° 
959 : 
360 ;REGISTER DEFINITIONS IN THE MESSAGE BUFFER 
7 
ss ; 
964 000006 XSTO** 6 sEXTENDED STATUS REGISTER 0 (WORD 4) 
965 000010 XSTl== 8, }EXTENDED STATUS REGISTER 1 (WORD 5S) 
966 000012 xST2== 10, sEXTENDED STATUS REGISTER 2 (WORD 6) 
967 000014 XSTS*= 12. }EXTENDED STATUS REGISTER 3 (WORD 7) 
968 000016 xST4="= 14. EXTENDED STATUS REGISTER 4 (WORD 8) 
970 
971 3° 
972 3 
ora }OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 
7 
ove 2 
977 000002 PKLOW = 2 }LOW ORDER CHARACTERISTIC DATA POINTER 
978 000004 PKHI = 4 }HIGH ORDER CHARACTERISTIC DATA POINTER 
979 000006 PKBCNT = 6 ;NUMBER OF BYTES IN DATA PACKET 
981 000010 EXBCNT=10 ;NUMBER OF BYTES IN EXTENDED DATA PACKET 
983 3° 
984 ;DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 
ge 
986 000000 BSELO = 0 BYTE 0 
987 000001 BSELL = 1 BYTE 1 
988 000002 SEL2. #2 ;WORD > 
989 000004 SELDATA = 4 ;WORD 3 
990 
991 - 
992 }BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
t- 
994 000000 Pw.NOP = 0 sNO-OP 
995 000001 PU RORAM 21 ;READ RAM 
000002 Pw WTRAM 22 ;WRITE RAM 
997 000003 PW_RFIFO 23 ;READ FIF 
998 000004 PW_WFIFO -4 }WRITE FIFO 
999 000005 PW_RDSTAT °§ ;READ STATUS 
1000 000006 PW_WCTL 26 }WRITE TAPE CONTROL 
1001 000007 PW_WEMT a? ;WRITE TAPE FORMAT 
1002 000010 Pu. WMISC * 10 }WRITE MISCELLANEOUS 
1003 000011 Pw = 11 ;WRITE NPR CONTROL 
1004 000020 Pu.022 = 20 ;D0 MICROTEST 22 
1005 000021 PuD11 » 21 00 MICROTEST 11 
1006 000022 PwD13 * 22 ;D0 MICROTEST 13 
1007 000023 Pu.NO1311 = 23 }DISABLE MICROTEST 11 AND 13 
argioO8 000024 Pw ROEXT = 34 ;READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 
1009 
1010 * 
1011 ;BSEL1 CODES FOR WRITE TAPE CONTROL 


A 
1013 000200 wC. IFAD = BIT7 :IFAD - FORMATTER ADDRESS 


000100 
000040 


H3 
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BITS 
BIT2:eIT1 
BITO 


3¢ 
s MS.ATTN SUBCODES 


MSA.NOP = O02 
MSA.VOL = 12 
MSA.NRAM= 2e2 
MSA.FRAM= 342 


3° 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


FORMAT 


SEQ 33 
sITADO - TRANSPORT ADDRESS BIT ° 
sITAD1 - TRANSPORT ADDRESS BIT 
sIRESVS - RESERVED 05 
sIREW #- REWIND 
sIRWU - REWIND AND UNLOAD 
sIFEN - FORMATTER ENABLE 
:GO 
sIHISP - HIGH SPEED 
sIWRT - WRITE 
sIREV - REVERSE 
sIWFM - WRITE FILE MARK 
sIEDIT - EDIT 
sIERASE - ERASE 
sIRESV3 - RESERVED ¢3 
sIRESV4 - RESERVED 04 


MISCELLANEOUS SUBCOMMAND 


sINVERT SENSE OF EXTENDED FEATURES SWITCH 
sRESET FIFO AND INPUT PARITY ERRORR 
sRESET TAPE STATUS IN 2 FLIP-FLOPS 
sATTENTION TRIGGER FIELD 

sRESET TIMER A,B THEN DELAY TIMES IN SEL2 


sNO-OP (NOTHING TRIGGERED) 

sSIMULATE ON-LINE/OFF-LINE TRANSISTION 

sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
sFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


s INTERRUPT REQUEST (0-1 TRANSITION) 

sTAPE DATA DIRECTION OUT (O= IN) 

sENABLE TRANSPORT LOOPBACK 

sWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


3¢ 
s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


$1. I1RESV 


BIT2 
BIT1+BITO 
BIT1S 
BIT14 
BIT13 


sWORD 09 BYTE 2 ory IN MISS 


TIMER A FLAG H 
TIMER B FLAG H 


C UNDEF INED ) 

WORD #8 BYTE 1 PARIN H 
IRESV2 
IRESV1 
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010000 


177560 


I3 


SEQ 34 

$1. IE0T * BIT12 ' IEOT L 
$1. IIOENT * BIT11 ; IIDENT H 
S1.ICER * BIT10 ‘ ICER # 
$1. IF MK * BITS ’ IFMK H 
$1. IHER = BITS ; IHER H 
SO. ISPEED = BIT7 sWORD #8 BYTE O ISPEED H 

. IRDY * BIT6 ’ IRDY L 

> § * BITS ; ITONL L 
SO. ILOP = BITS ‘ ILOP L 
SO. IDBY * BITS 8 IOBY L 
SO. IRWD «= BIT2 ' IRWO L 
SO.IFBY ° are ‘ IFBY L 
SO.IFPT 3 IFPT L 


= BIT 
SPECIAL KEYBORD STUFF FOR MOVER PROGRAM 


CSR *174400 
BAR #174402 
DAR *174404 
MPR *=174406 


CONTROLLER COMMANDS 


OLGETS #*4 

SEEK =6 
OLROHD =10 
READ #14 
DLRONH 16 
READY =*1 

OLSR #13 
OLERR #177730 


TTICSR = 17756C 


sKEYBOARD STATUS REGISTER 
sKEYBOARD DATA REGISTER 

sCONSOLE PRINTER STATUS REGISTER 
sCONSOLE PRINTER DATA REGISTER 
sHIGH MEMORY MASK VALUE 


sSTATUS AND CONTROL REGISTER 
sO0L ADDRESS REGISTER 
sPLATTER ADDRESS 
sMULTIPURPOSE REGISTER 


sGET STATUS COMMAND 

sSEEK TRACK AND HEAD SELECT 
sREAD SECTOR HEADER 

sREAD COMMAND 

sREAD SECTOR NO HEADER CHECK 


sORIVE READY atte IN STATUS REG. 
sSTATUS AND RESET 

sMASK FOR COVER OPEN 

sHEADS UNLOADED 

sMASK FOR CYLINDER ADDRESS 
sDONE SET OR ERROR SET BITS 


sKEYBOARD INPUT STATUS 


J3 
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TK-25 REGISTER AND PACKET DEFINITIONS 

1128 177562 TTIBFR = 177562 sKEYBOARD DATA REGISTER 

1129 177564 TTOCSR = 177564 sCONSOLE PRINTER STATUS REGISTER 

1130 177566 TTOBFR = 177566 sCONSOLE PRINTER DATA REGISTER 


K3 
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eee TAL "NacRos AND OPDEFS. 

wy .SBTTL SPECIAL MACROS AND OPDEFS. 

1135 

1136 3¢ 

1137 ;SAVE GENERAL REGS 1 TO 5 

1138 3° 

1139 

1140 -MACRO SAVREG 

1141 JSR RS ,REGSAV 

1142 .ENOM 

1143 

1144 s¢ 

as : MACRO TO FORCE AN ERROR 
3- 

: or FORCERROR TAG ,NOTSSR 

1149 .IIF NOF LISTALL, .NLIST 

1150 LIST 

1151 ‘IF 6B NOTSSR 

1152 MOV TSSRCRS),.R1L sREAD TSSR 

1153 .ENOC 

1154 MOV FORCER ,FORCER 3IS FORCER SET? (LEAVE C BIT ALONE) 

1155 BNE TAG 3BR IF YES 

1156 .NLIST 

1157 .IIF NOF LISTALL,. .LIST 

1158 .LIST 

1159 .ENOM 

1160 

1161 :¢ 

1162 3; MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

1163 3 WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

1164 3 SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

1165 3 FORCER TO 177777 

res F TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
g° 

1168 -MACRO FORCEXIT TAG 

1169 -NLIST 

1170 .IIF NOF LISTALL, .NLIST 

1171 LIST 

1172 MOV FORCER ,FORCER 3IS FORCER NEGATIVE? 

1173 BMI TAG 3;8R IF YES 

1174 -NLIST 

1175 .IIF NOF LISTALL, .LIST 

1176 .LIST 

1177 .ENOM 

1178 3° 

ao. MACRO TO INCREMENT ERROR COUNTS 

1181 * MACRO NEXT. ERRNO 

1182 »NLIST 

1183 333.IIF NOF LISTALL, .NLIST 

1184 ERRNO=ERRNO+1 

1185 333.IIF NOF LISTALL, .LIST 

1186 LIST 

1187 .ENDOM 

1188 


1189 “s 


Lo 
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74h sa NaPRos ASN BebERE. 2 MACRO M1200 20-APR-84 08:12 PAGE 28-1 SEQ 37 
1190 sMACRO TO PERFORM XOR 
1191 3° 
1192 
1193 P A.B 
1194 MOV A, -C(SP) 
1195 BIC B,(SP) 
1196 Ic ° 
1197 BIS CSP)+,.8 
1198 .ENOM 
1199 
1200 000000 EN=0 3; INITIALIZE ERROR NUMBER 
1201 .SBTTL FORCER - FORCE ERROR FLAG 
1202 
1203 3 
1204 3 THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
yo : TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
3 
1207 
1208 002144 000000 FORCER: : 0 : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
1209 3 - BY THE MACRO “IFERROR”). AN ERROR NEED NOT 
rt s - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 
1212 


1213 


M3 
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GLOBAL DATA SECTION 

1215 .SBTTL GLOBAL DATA SECTION 

i317 

1218 THE GLOBAL DATA a CONTAINS DATA THAT ARE USED 

1219 3IN MORE THAN ONE TEST 

1220 i-- 

1221 

1222 3 

1223 ;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 

ooos ;SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 

1226 002146 000000 EPRTSW:: -WORD O sPRINT SWITCH 

1227 002150 000000 UNITN: : -WORDB O sUNIT @ UNDER TEST. 

1228 002152 000000 QVP:: -WORD O sQUICK VERIFY FLAG. 

1229 002154 000000 33 -WORD O sADDRESS OF CSR FOR CURRENT DEVICE 

1230 002156 000224 IVEC:: -WORD 224 s INTERRUPT VECTOR 

1231 002160 000200 IPRI:: .WORDB PRIO4 s INTERRUPT PRIORITY. 

1232 002162 000000 TSTCNT:: . WORD sNUMBER OF TESTS RUN IN THIS PASS 

1233 002164 000000 LOOPCNT: : . WORD i REMAINING ITERATION COUNT FOR TEST 

1234 002166 000000 DEVCNT:: -WORDB O NUMBER OF DEVICE UNDER TEST 

1235 002170 000000 FATFLG:: -WORD O SSET IF FATAL ERROR IS DETECTED IN TEST 

1236 002172 000000 INTRECV:: -WORD O 3SET IF TAPE INTERRUPT WAS RECEIVED 

1237 002174 000000 BENBSW: : -WORDB O sBUFFER ENABLE SWITCH SW O-OFF;1=0N 

1238 002176 000000 EXPD:: -WORD O sEXPECTED RAM DATA FOR PRAMPKT ROUTINE 

1239 000000 RECV:: -WORD O sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 

1240 002202 000000 ERRHI: : WORD O sHIGH ADDRESS MEMORY ERROR 

1241 002204 000000 ERRLO: : -WORD O sLOW ADDRESS MEMORY ERROR 

1242 002206 RAMDATA: : .BLKW 16. iDATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

1243 002246 000000 RAMSIZ:: -WORD O 3RAM DATA SIZE FOR PRAMPKT ROUTINE 

1244 002250 000000 RCVHIADD: : -WORD O sRECEIVED BUFFER HIGH ADDRESS 

1245 252 000000 RCVLOADD: : -WORD O sRECEIVED BUFFER LOW ADDRESS 

1246 002254 000000 COUNT: : -WORDB O sTEST COUNT PATTERN 

1247 002256 000000 DATA: : . WORD ce] ;TEST DATA 

1248 002260 000000 TSTFLAG:: -WORDB O ;TEST FLAG WORD 

1249 002262 000000 TSTPTR:: WORD fe) ;TSTBLK POINTER 

1250 002264 000000 PRMNO: : -WORD O sPRINT ROUTINE TEMP 

1251 002266 EXPMSG: : -BLKB 100 sEXPECTED MESSAGE BUFFER DATA 

1252 002432 RECMSG .BLKB 100 sRECEIVED MESSAGE BUFFER DATA 

1253 002576 TMPBFR: BLKB 80 3s TEMPORARY STORAGE FOR PRINT 

1254 002716 000000 MESBFA: : 0 0 ;STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 


NS 
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TSTBLK - TEST DATA TABLE 
1256 .SBTTL TSTBLK - TEST DATA TABLE 
1257 
1258 - 3¢ 
1259 3 
rtf ;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
1 Fy 
os 3IN SEQUENCE THE DATA IS: 
1264 3 ALL ZEROS 
1265 3 ALL ONES 
1266 ry WALKING ONES 
1267 3 WALKING ZEROS 
1268 3 ALTERNATING ONES AND ZEROS 
1269 3 
1270 8° 
1271 
1272 002720 TSTBLK:: 
1273 002720 -WORD O sALL ZEROS 
1274 002722 177777 . WORD 177777 sALL ONES 
1275 002724 1 -WORDB BITO sDATA FOR WALKING ONES 
1276 002726 000002 -WORDB BIT1 
1277 002730 -WORD BIT2 
1278 002732 000010 -WORD BITS 
1279 002734 -WORD BIT4 
1280 002736 000040 -WORD BITS 
1281 002740 000100 -WORD BITE 
002742 000200 -WORD BIT7 
1283 002744 000400 -WORD BITS 
1284 002746 001000 -WORD BITO 
1285 002750 -WORD BIT1O 
1286 002752 004000 -WORD BIT11 
1287 002754 010000 -WORD BIT12 
1288 002756 020000 -WORD BIT13 
1289 002760 04 -WORD BIT14 
1290 002762 1 -WORD BIT15 
1291 002764 177776 WORD tCBITO sDATA FOR WALKING ZEROS 
1292 002766 177775 . WORD *tCBIT1 
1293 002770 177773 . WORD tCBIT2 
002772 177767 .~ WORD tCBITS 
1295 002774 177757 . WORD tCBIT4 
1296 002776 177737 . WORD tCBITS 
1297 3000 177677 . WORD tCBITé6 
003002 177577 . WORD tCBIT7 
1299 003004 177377 . WORD tCBITS 
1300 003006 176777 . WORD tCBIT9 
1301 003010 175777 . WORD tCBIT10 
1302 003012 173777 . WORD tCBIT11 
1303 003014 167777 . WORD tCBIT12 
1304 003016 157777 . WORD *CBIT13 
1305 003020 137777 . WORD tCBIT14 
1306 003022 077777 . WORD *CBIT15 
1307 003024 125252 . WORD 125252 sALTERNATING ONES, ZEROS 
1308 003026 052525 -WORD 052525 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


1309 003030 TBLEND==, 


B4 
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GLOBAL ENVIRONMENT STOR 
13it .SBTTL GLOBAL ENVIRONMENT STORAGE 
a 
4313 sSTORAGE FOR DEVICE REGISTERS 
t 
1315 003030 000000 100000 000000 DUMMY: 0,100000,0,0 sOUMMY DEVICE REGISTERS... 
1316 005040 000000 000000 000000 0,0,0,0,0,0,0,0 
1317 t...FOR MULTI-UNIT CHECKOUT. 
1319 
1320 003060 000000 DUFLG: : .WORD 0 s"OROPPED UNIT” FLAG. 
1321 }INHIBITS CODE IN “CLEAN-UP”. 
1322 003062 000000 NODEV: : .WORD 0 sFLAG TO SAY NO DEVICE. 
1324 003064 000000 TEMP1:: WORD 0 sSOME TEMP LOCATIONS. 
1325 003066 000000 TEMP2:: .WORD 0 
1326 003070 000000 XXCOMM: : .WORD 0 sXXOP+ COMM BLOCK POINTER. 
1327 003072 000000 tt .WORD 0 31ST FREE MEMORY ADORESS... 
1328 003074 000000 FRESIZ:: .WORD 0 +...AND SIZE (CIN WORDS). 
1329 003076 000000 FREEHI: .WORD O sLAST WORD IN FREE SPACE 
1330 003100 000000 KTFLG: .WORD 0 sKT11, MEM AVAIL FLAG - 
1331 i . WORD © = «24K OR NO KT - 
1332 - NZ © >24K AND KT. 
1333 003102 000000 K TENABLE: : .WORD 0 1SET BY TEST ROUTINES TO FLAG 20K UNDER TEST 
1334 003104 002000 PS : .WORD 2000 332W BLOCK ADDRESS FOR 32k STAR 
1335 003106 000000 SIFLAG: : .WORD 0 : 
1336 003110 000000 BADDAT: : .WORD 0 sACTUAL DATA 
1337 003112 000000 GDDAT: : .WORD 0 sEXPECTED DATA 
1338 003114 000000 LOOPFL:: .WORD 0 
1339 003116 CTAB:: sCONFIGURATION TABLES. 
1340 003116 000000 CTABM: : .WORD 0 sCONFIG WORK. 
1341 003120 000000 .WORD 0 
1342 003122 000000 .WORD 0 
1343 003124 000000 .WORD O 
1344 003126 177777 .WORD -1 sEND OF MEM TABLE. 
1345 003130 CTABE: : 
EP sERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
¢ 
1348 : 0 » UNIT NOT TESTED 
1349 3 100000 -« UNIT ONLINE, NO ERRORS 
1350 1 LOXXXX © UNIT ONLINE, ENCOUNTERED Xxxx ERRORS 
1351 : 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
1352 : 160001 = UNIT DROPPED, NOT IDLE AT START 
ross } 1L4XXXX UNIT DROPPED, ENCOUNTERED XXxx ERRORS 
8 
1355 003130 ERTABL: .BLKW 664, 
1356 003330 000000 ERTABE : .WORD 0 


1358 003332 000000 SKIPT: .WORD 0 s1°SKIP SUBTEST O=NO SKIP OF SUBTEST 


GLOBAL TEXT EHEBEAERG FUNC #2 


124 


103 


113 


132 


C4 
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oss 


124 


-SBTTL GLOBAL TEXT MESSAGES 


aoe 


s THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 


s MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
: MORE THAN ONE TEST. 
gee 


a 
iNAMES OF DEVICES SUPPORTED 
:- 


DEVTYP <TK-25> 
LSOVTYP:: 
-ASCIZ /TK-25/ 
VEN 


3° 
sTEST DESCRIPTION 
ge 
DESCRIPT <CZTKFA TK-25 FRT END FUNC @2> 
LSDESC:: . 
a /CZTKFA TK-25 FRT END FUNC @2/ 
Vv 


3° 
sBIT TO ASCII CONVERSION FOR TSSR REGISTER 
t- 


TSSRBIT: : -WORD 18,28,38,48,5%,68,78,88 
-WORD 98,108,118,128,158,148,158, 168 

18: -ASCIZ ‘SC’ 

2s: -ASCIZ ‘BIE’ 

38: -ASCIZ ‘SCE’ 

4%; -ASCIZ ‘RMR’ 

S$: -ASCIZ ‘NXM’ 

6%: . TZ ‘NBA‘ 

78: ASCIZ ‘BIT9' 

8s: -ASCIZ ‘BITS’ 

98: -ASCIZ ‘SSR’ 

108: -ASCIZ ‘OFL' 


148; -ASCIZ ‘BIT2’ 

158: -ASCIZ ‘BIT1' 

168: -ASCIZ ‘BITO' 
EVEN 


SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 

SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 

NXR : -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX; -ASCIZ /#A ADDRESS: #06/ 

TSSX: -ASCII /#A TSBA,TSSR EXP’'D: S068A,8S068N/ 
-ASCIZ /#A TSBA,TSSR REC'D: s068A,806/ 

FUSI: -ASCII /SNSA/ 

USI: ASCIZ / UNEXPECTED INTERRUPT/ 


NSI: "ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 


SEQ 41 


GEORG PERF HEREAERE FUNC #2 
1411 004113 08S 116 
1412 004117 040 «= 040 
1413 004154 040 040 
1414 004176 9 04S-——«é102 
1415 004233 040 040 
1416 004305 040 040 
1417 004355 040 040 
1418 
1419 004425 000 
1420 004426 «= «0S (tsi: 
1421 004431 9045-101 
1422 004465 045 =«:116 
1423 004541 045 = 101 
1424 004643 = 122,—Ss‘i101 
1425 004711 040 040 
1426 004754 = 127-—Ss«122 
1427 005011 «124 =—s«123 
1428 005104 = 124 = s«128 
1429 
1430 
1431 


MACRO M1200 20-APR-84 


FNOINTR: 
NOINTR: 
IFAULT: 
INTX: 
NOINIT: 
NSINIT: 
BRINIT: 


D4 
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ASCII /SNSA/ 

NO_INTERRUPT WAS GENERATED/ 
; INTERRUPT FAULT/ 
/A CPU PC: SO6SA TSBA: 806/ 
4 “BUS-INIT” DION’ T INITIALIZE CONTROLLER/ 
4 “SOFT-INIT” OION'T INITIALIZE THE OPU/ 
4 “BUS-RESET” DION'T INITIALIZE THE OPU/ 


4/ 

/8N/ 

/#A EXP'D: SO68A, REC'D: #06/ 

/ONBA EXP'D: SO6SA, SO6ENSA REC'D: SOSA, #06/ 

/@A REGCW) WRITTEN TO: SO68A REG(R) READ; EXP’D: sO6S8A, REC'D: s06/ 
-ASCIZ ‘RAM Contents Do Not Metch Packet Sent’ 

7 CONFIG DOESN'T MATCH MFG. MASTER/ 

‘WRITE CHARACTERISTICS Failed’ 

‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 

‘TSSR Incorrect After READ Command, More Bits Set Than SSR’ 


CZTKFA TK-25 FRT END FUNC 02 
GLOBAL ERROR REPORT SECTION 


1457 


005230 


177770 


004426 
000001 


000004 


E4 
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-SBTTL GLOBAL ERROR REPORT SECTION 


; "THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
s CALLS THAT ARE USED IN MORE THAN ONE TEST. 

s ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

: -- 


reRERR BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
33 

PRINTX @NXRX,NODEV sNODEV = NEXM ADDRESS. 

MOV NODEV, -( SP) 


MOV @NXRX, - CSP) 
MOV ~ 


TRAP CSPNTX 
ADO #6 ,SP 
JSR PC, EXTEND s PRINT EXTENSION IF REQUIRED. 
ENOMSG 
L10002: 
TRAP C$mSG 


s THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


EXTEND: TST (PC)> 


EXTA 18 : O = NO EXTENSION. 

JSR PC,@EXTA 3: APPEND EXTENSION TEXT. 
18: PRINTX @NULCR : PRINT A BLANK LINE 

MOV @NULCR, -( SP) 

MOV @1,-CSP) 

MOV SP, 

TRAP CSPNTX 

04, 


SEQ 43 


F4 
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BAlTSoR  BRINT TESR CONTENTS , SEQ 
per .SBTTL PRITSSR - PRINT TSSR CONTENTS 
1462 3° 
1463 8 
1464 sROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
1465 sTHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
vest sBY A MESSAGE PRINTING ROUTINE 
; 
1468 3: INPUTS: 
1469 3 
rteg 3 R1 CONTENTS OF TSSR 
1471 3 
ays sSUBORDINATE ROUTINES: 
1 3 
ars 3 CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
1 3 
1476 g* 
1477 
1478 005264 PRITSSR: 
1479 005264 SAVREG sSAVE GENERAL REGISTERS 
1480 005270 010104 MOV R1,R4 sSAVE THE TSSR CONTENTS 
1481 005272 PRINTB @TSSRFOR,R4 sPRINT THE CONTENTS OF TSSR 
005272 010446 MOV R4,-C(SP) 
005274 012746 006117 MOV @TSSRFOR, -( SP) 
005300 012746 000002 MOV @2,-(SP) 
005304 010600 MOV 
005306 104414 TRAP CSPNTB 
005310 062706 000006 ADD @6,SP 
1482 005314 010400 MOV R4,RO 3GET TSSR BACK FOR CHKAMB 
1483 005316 004737 016714 JSR PC, CHKAMB sARE CONTENTS AMBIGUOUS ? 
1484 005322 103410 Bcs 5$ ;BRANCH IF NOT 
1485 005324 PRINTX @AMBTSSR :SHOW CONTENTS ARE AMBIGUOUS 
005324 012746 006337 MOV @AMBTSSR, -C SP) 
005330 012746 000001 MOV @1,-CSP) 
005334 010600 MOV 
005336 104415 TRAP CSPNTX 
005340 062706 000004 ADD @4,SP 
1486 005344 010403 5%: MOV R4,R3 sCONTENTS OF TSSR 
1487 005346 042703 001476 BIC @HIADDR!FATERR! TERCLS,R3 sCLEAR ALL MULTIPLE BIT FIELDS 
1488 005352 001434 BEQ 208% 3NO BITS ARE SET 
1489 005354 012702 002576 MOV @TMPBFR ,R2 | TEMPORARY ASCII BUFFER 
1490 005360 012701 003400 MOV @TSSRBIT,R1 sASCII EQUIVALENT OF BITS 
1491 005364 005703 108: TST R3 sREMAINING BITS TO CONVERT 
1492 005366 001413 BEQ 15$ sBRANCH WHEN ALL ARE DONE 
1493 005370 000241 cic sCLEAR CARRY FOR SHIFT 
1494 005372 006103 ROL R3 sSHIFT NEXT BIT TO CARRY 
1495 005374 103006 Bcc 13% sBRANCH IF BIT NOT SET 
1496 005376 011100 MOV CR1),RO sPOINTER TO BIT DEFINITION 
1497 005400 112022 118: MOvVB CRO)», CR2)> sMOVE ASCIZ TO BUFFER 
1498 005402 001376 BNE 118 sMOVE ALL BITS 
1499 005404 112762 000054 177777 MOVB @',,-1¢(R2) s INSERT A COMMA TO TERMINATE 
1500 005412 005721 13%: TST (R1L)+ sPOINT TO NEXT DESCRIPTION 
1501 005414 000763 BR 108% sGET THE REMAINING BITS 
1502 005416 105042 15%: CLRB -(R2) s TERMINATE THE LINE 
1503 005420 PRINTX @TSSDEF ,@TMPBFR ;PRINT THE BIT DEFINITIONS 
005420 012746 002576 MOV @TMPBFR, -( SP) 


005424 012746 006310 MOV @TSSDEF , -( SP) 


BR 


TKFA TK- 


“BRINT TSSR CONTENTS 


ITSSR 


012746 


000002 
000006 


177761 
006400 


006740 


006241 
000002 


000006 
000031 
176377 


006137 
000002 


000006 
100210 


006026 
002146 


005762 
002146 


005762 
000001 


000004 
005762 


116 
116 
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002170 


002146 


002146 
005644 


002146 


045 
045 


208: 


253%: 


EPRT2: 
EPRT1: 


MOV 


-ASCIZ 
-ASCIZ 


G4 


#2, -(SP) 
»RO 
CSPNTX 


R4,R3 
@*CTERCLS,R3 
TCOCOO(R3),RS 
er" 


*” SP 
@TCOASC, -( SP) 
»-CSP) 

SP RO 

CSPNTX 


R4.R3 
OtCFATERR,R3 
253 


R3 
a 


TSFCOD(RS), R3 
@TFCASC RS 
R3, -(SP) 
@TFCASC, -(SP) 
@2,-CSP) 

SP ,.RO 

CSPNTX 


#6.,SP 

025. .FATFLG 
R4,R3 
— 
Recap} oR3 


3,-CSP) 
@TEXASC, -(SP) 
2, -(SP) 


SP ,RO 
CSPNTX 
#6 ,SP 
+ * rommetaae 


31 
@EPRTS,EPRTSW 
EPRTSW 

310% 
GEPRT1,EPRTSW 
EPRTSW, 32%+2 
@EPRT1 
@EPRT1,-CSP) 
41, -(SP) 


SP ,RO 

CsPNTB 

04 ,SP 
@EPRT1,EPRTSW 
PC 


sGET THE TSSR CONTENTS 

sCLEAR ALL BUT TERMINATION 

sGET THE TERMINATION CODE MEANING 
sPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
sCLEAR ALL BUT FATAL TERMINATION 
sD0ON‘T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
sGET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


sOROP THIS UNIT AFTER ERROR 

sGET TSSR CONTENTS 

sCLEAR ALL BUT EXTENDED ADDRESS 
s00N'T PRINT IF ZERO 

sPRINT THE EXTENDED ADORESS BITS 


sCHECK FOR MEDIA ERROR 
s8R, IF PROBABLY NOT TAPE ERROR 


:“PROBABLY MEDIA RELETED ERROR - BAD TAPE” 


sCHECK FOR THE SWITCH EMPTY 
3B8R, IF SWITCH IS NOT EMPTY 
sSET SWITCH TO DEFAULT 


sPUT REAL SWITCHABLE MESSAGE IN PLACE 


sPRINT THE ERROR MESSAGE 


sRESET TO NORMAL ERROR POINTER 
sRETURN TO CALLER 


‘SNSA ee0eeCHECK CONTROLLER, CABLES AND TRANSPORTeseseenS' 
‘SNBA seeeeREPLACE CONTROLLEReeseesS' 


BAT SSR “BRrNP EMR EUNTERtS 


1536 006117 
1538 006200 


045 


116 
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045 


EPRTS: 


-ASCIZ 


H4 
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‘GNSA seeeePOSSIBLE MEDIA RELATED ERROR - BAD TAPEseseanS’ 
.ASCIZ ‘sNSA TSSR = 806’ 

-ASCIZ ‘sSNBA Extended Address Bits = #06’ 

-ASCIZ ‘SNSA Termination Cless Code = sT’ 


-ASCIZ ‘sSNA Fatal Termination Class Code = sT’ 
‘S@NSA TSSR Bite Set: sT’ 
‘aNBA TSSR Contents Are Ambiguous’ 


1%,2%,3%,4%,5%,68,78,8$% 
‘Normal Termination’ 

‘Termination Condition’ 

‘Tape Status Alert’ 

‘Function Reject’ 

‘Recovereble Error - Tape Position One Record Down’ 
"Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fatal Controller Error’ 


1$,2%,3%,4$% 

‘Internal Diagnostic Failure’ 
‘Reserved’ 

‘Bus Interface or Sanity Cneck Error’ 
‘Reserved’ 


SEQ 46 


CZTKFA TK-25 FRT END FUNC 


PRIPKT 


7 007072 


003102 


007276 


14 
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- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


2° 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 


- SBTTL 


PRIPKT 


- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


1538: 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


R1 

C(R4)+ ,R2 
OPKTFRM,R1,R2 
Re, -(SP) 
R1,-CSP) 
OPKTFRM, -C SP) 
@3,-(SP) 

SP ,RO 

CSPNTB 

#10,SP 

R1 


sSAVE THE REGISTEPS 

3s SAVE OF WORDS IN PACKET 
: ABOVE 28K UNDER TEST? 

3;8R IF YES 

3SET HIGH ORDER ADDRESS TO O 
3sCOPY HIGH ORDER ADDRESS 
3sGET LOWER ADDRESS 

sSHIFT BIT 15 INTO C BIT 
sANO INTO HIGH ORDER 

sPRINT PACKET ADORESS 


sGET HIGH ORDER ADDRESS 


ADORESS 
sSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
sGET RETURNED PAR6 ADDRESS BIAS 


sSAVE WORD NUMBER 
sGET PACKET CONTENTS 
sPRINT THE DATA 


sNEXT WORD NUMBER 

sDO0NE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 
sJUST A COUPLE NEW LINES 


J4 


TKFA TK-25 FRT END FUNC 02 RO M1 -APR-84 08:12 P e 
BAIPKT “ BRINT THE ADBNESSTCONTENTS OF OMAR PacKey COrt2 PAGE 36-1 a8 40 
1599 007236 000207 RTS PE :RE TURN 
1601 007240 045 116 045 PKTFRM: .ASCIZ ‘SNSA Packet Word @NDISA © s06° 
1602 007276 045-116 O45 PKTADD: (ASCIZ ‘SNWA Packet Address = #0105" 
1604 007333 045 116 045 PKINEW: .ASCIZ ‘sNSNSA 
1605 EVEN 


1606 


K4 


TKFA_ TK- FRT_END F o MACRO M1200 20-APR-84 08:12 PAGE 37 49 
BAlGxoR - BRINt EXPD, Weey SND xOR BYTE = 
red .-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
ish : 
3 
1612 sPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
pees sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
3 

1615 3: INPUTS: 
1616 
1617 3 R1 RECEIVED DATA 
1618 3 Re EXPECTED DATA 
1619 3 
1620 ;OUTPUT: 
1621 Hy 
1622 3 RO XOR OF EXPECTED/RECEIVED DATA 
1623 3 
1624 ‘= 
1625 
1626 007344 PRIBXOR: : 
1627 007344 SAVREG sSAVE THE REGISTERS 
1628 007350 010203 MOV R2,R3 sEXPECTED DATA 
1629 007352 xOR R1,R3 3FORM THE EXCLUSIVE OR 
1630 007362 012700 177400 MOV @tC<377>,RO 3;BYTE MASK 
1631 007366 040001 BIC RO,R1 sSAVE LOW BYTE RECV 
1632 007370 040002 BIC RO,R2 sSAVE LOW BYTE EXPD 
1633 007372 040003 BIC RO,R3 ;SAVE LOW BYTE XOR 
1634 007374 PRINTB @XORBFOR,R2,Ri,R3 ;PRINT THE MESSAGE 

007374 010346 MOV R3,- >? 

007376 010146 MOV R1,-CSP) 

007400 010246 MOV R2,-CSP) 

007402 012746 007426 MOV @XORBFOR, -( SP) 

007406 012746 000004 MOV 04,- ) 

007412 010600 MOV 

007414 104414 TRAP CSPNTB 

007416 062706 000012 ADD #12,SP 
1635 007422 010300 MOV R3,RO 3RO HAS XOR ON RETURN 
t3] 007424 000207 RTS PC ;RETURN TO CALLER 
ets 007426 045 116 045 XORBFOR: — -ASCIZ ‘sNSA EXPD: SO038A RECV: SO38A XOR: 803’ 


L4 


TKFA TK- FRT_ END F t) MACRO M1200 20-APR-84 08:12 PAGE 38 SEQ SO 
IxorR - INT EXD, HeEy SND xOR 
aa .SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 
1644 3¢ 
1645 3 
1646 ;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
— ;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
3 
1649 : INPUTS: 
1650 3 
1651 3 R1 RECEIVED DATA 
1652 3 Ro EXPECTED DATA 
1653 3 
1654 ;OUTPUT: 
1655 FY 
ost F RO XOR OF EXPECTED/RECEIVED DATA 
3 
1658 :- 
1659 
1660 007474 PRIXOR:: 
1661 007474 SAVREG :SAVE THE REGISTERS 
1662 007500 010203 MOV R2,R3 ;EXPECTED DATA 
1663 007502 XOR R1,R3 sFORM THE EXCLUSIVE OR 
1664 007512 PRINTB @XORFOR, R2,R1, R3° ;PRINT THE MESSAGE 
007512 010346 MOV R3, -C SP) 
007514 010146 MOV R1,-CSP) 
007516 Ol MOV R2,-CSP 
007520 012746 007544 MOV @XORFOR, -C SP) 
007524 012746 000004 MOV 04, -( 
007530 010600 MOV 
007532 104414 TRAP CSPNTB 
007534 062706 000012 ADD #12,SP 
1665 007540 010300 MOV R3,RO sRO HAS XOR ON RETURN 
aoe 007542 000207 RTS PC ;RETURN TO CALLER 


1668 007544 045 116 045 XORFOR: —- ‘sNSA EXPD: SO6SA RECV: SO068A XOR: #06‘ 


M4 


KFA TK - FRT F' 2 M1 -APR-84 08:12 PAGE 39 SEQ 51 
GRIEG ™-BRINFTePMEnsas aSEPTPGLROR eR? 
1673 .SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
ish . 
F 
1675 sROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
rhe sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
3 
1678 3; INPUTS: 
1679 3 
1609 F RO OCTAL VALUE TO CONVERT 
1681 3 R1 TABLE OF POINTERS TO ASCII EQUIVALENT 
1682 3 
1683 3° 
1684 
1685 007612 PRIEQU: 
1686 007612 SAVREG sSAVE THE REGISTERS 
rt 007616 000207 RTS PC ;RETURN TO CALLER 
1689 
1690 
1691 
1692 .SBTTL PRIRAM - PRINT RAM ADDRESS 
1693 ry 
1694 
1695 i PRINT CONTROLLER RAM ADDRESS. 
oe ‘_— ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
1698 } INPUTS: 
1699 : 
1700 3 R4 RAM ADDRESS 
1701 3 
1702 3- 
1703 007620 PRIRAM: 
1704 007620 SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
1705 007624 PRINTS @RAMFOR,R4 sPRINT RAM ADDRESS IN ERROR 
007624 010446 MOV R4,-CSP 
007626 012746 007650 MOV AMFOR , -C SP) 
007632 012746 0900002 MOV @2,- 
007636 O1 MOV P,RO 
007640 104414 TRAP CS$PNTB 
007642 062706 000006 ADD 06, 
ame 007646 000207 RTS PC ;RETURN 
1708 007650 045 116 045 RAMFOR: .ASCIZ ‘NSA CONTROLLER RAM ADDRESS = #06’ 
1709 -EVEN 
1710 
1711 
ty .SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 
3° 
1714 : 
1715 sPRINT MEMORY ADDRESS 
thy ;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
3 
1718 IMPLICIT INPUTS 


i 
é 

1720 3 ERRHI - HIGH ORDER ADDRESS 
3 ERRLO - LOW ORDER ACORESS 


N4 


SETKEA TH Ee AE ENGR y eRe anne ee? M1200 20-APR-84 3:12 PAGE 39-1 


002202 
002204 


007762 
000003 


000010 


116 


002202 
002204 


010076 
000003 


000010 


116 


045 


045 


; - 
PRIADD: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV ERRHI,RO sGET HIGH ADDRESSS 
MOV ERRLO,R1 sGET LOW ADDRESS 
MOV R1,R2 sCOPY LOW ADDRESS 
ROL R sSHIFT BIT 15 TO C BIT 
ROL RO sSHIFT INTO HIGH ORDER 
PRINTB @PRIAO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 
MOV R2,-CSP) 
MOV »-(SP) 
MOV @PRIAO, -( SP) 
MOV o3,-C 
MOV SP ,RO 
TRAP CSPNTB 
ADD #10,SP 
RTS PC sRETURN 
PRIAO: —— ‘sSNSA MEMORY ERROR ADDRESS = #01805’ 


-SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 


3¢ 


3 
sPRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; IMPLICIT INPUTS 


3 

z ERRHI - HIGH ORDER ADDRESS 

3 ERRLO - LOW ORDER ADDRESS 

3 

g° 

PRITADD: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV ERRHI,RO sGET HIGH ADDRESSS 
MOV ERRLO,R1 ;GET LOW ADDRESS 
MOV Rl, sCOPY LOW ADDRESS 
ROL R1 sSHIFT BIT 15 TO C BIT 
ROL RO ;SHIFT INTO HIGH ORDER 


PRINTB @PRITO,RO,R2 sPRINT MEMORY ADDRESS IN ERROR 


RTS PC sRETURN 
PRITO: iy ‘NSA MEMORY TEST ADDRESS = #01805’ 
. Vv 


SEQ S2 


CZTKFA TK-25 FRT END FUNC 02 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) C 


010246 


012727 
000000 
013727 
000000 


005367 
001375 


000764 0103350 


140010 


010322 


002116 
177772 


MACRO M1200 


010320 


-SBTTL SPACE 


BS 


20-APR-64 08:12 PAGE 40 
OMMAND 


- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


8 
sROUTINE TO ISSUE A SPACE RECORDS 


“pgm 2 gga? stay VERSE ) 


tINPUT : 
R3 


RS 


CARRY 


RO 


NUMBER OF RECORDS TO BE SPACED OVER 
BIT15 erty. OIRECTION 


BIT15 = 1 IS REVE 


RSE 
FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 


i 
: 
§ 
F 
3 
é 
r 
3 
3 
’ 
sOUTPUT: 
b 
3 
3 
3 
3 
8 
8 
3 
b 
3 
: 


SPACE: : 


58: BIC 


108; MOV 
MO 
158%: JSR 


TAPE HAS BEEN MOVED 
iSIDE EFFECTS: 


#500. , SDELAY 
#140010, 808 


250 
tellin 
LSOLY,(PC)- 
-6(PC) 


sSAVE THE GENERAL REGISTERS 
sSET UP DELAY 
FORWARD 


IF REVERSE INDICATED 

LOAD UP NUMBER OF RECORDS TO SPACE 

3GO 00 COMMAND 

sCLEAR OIRECTION BIT 
sLOAD UP NUMBER OF RECORDS TO SPACE 


iSET REVERSE BIT IN COMMAND PACKET 
sSET UP R4 WITH PACKET ADDRESS 
COMMAND 


s8R, IF SSR IS SET AND OK 
sDELAY ABOUT .25 SECONDS 


SEQ 53 


GBIKE® ™- 25 nEBTRENBREU Er Bauann ARR RSER Se ARGARR ARS 08:12 PAGE 40-1 


010250 
010254 
1817 010256 
1818 010262 
18619 010264 


1830 010314 


005367 
367 


177756 
010330 


00C000 
000200 


208: 
258: 


408; 


608: 
708: 


C5 


-22(PC) 


608 
TSSRCRS),R1 
@SSR ,R2 
R2,R1 

408 

608 

70$ 


R4,RO 
PC 


sBUMP DELAY COUNTER DOWN 
s8R, IF MORE DELAY 
s8R IF TROUBLE CARRY = CLEAR 
sREAD TSSR 
sSET UP EXPECTED 

THEY 


EX 

sCARRY CLEAR = ERROR 
sPASS PACKET ADDRESS 
sRETURN 


SEQ 54 


DS 


SPAKE” ™-GBaEB'REUBRBY" Er BRuano AND REVERSE >RaARANB® C8t12 PAGE 41 


1834 
1835 
1836 
1638 010316 
1840 
1841 
1842 010320 
1843 
1844 010322 
1845 010324 
1846 010326 


1847 010330 
1648 


’ 
i 
’ 
i 
i 

-BLKB 


i 
COMMAND WORD 
O$: 


90%: 


SDELAY: . 


BERLE 


PACKET FOR SPACE COMMAND 
10-<, - TUV2AE7> 


te) 


. WORD 
sNUMBER OF RECORDS TO BE SPACED OVER WORD 


sDELAY COUNTER 


SEQ 55 


odds TK-25 FRT END FUNC 02 


WRTCHR 


- WRITE CHARACTERISTICS COMMAND 


a¢ 


3C 
TINPUT: 


OUTPUT: 


60$: 
70$: 


-SBTTL WRTCHR 


ES 


MACRO M1200 20-APR-84 08:12 PAGE 42 


- WRITE CHARACTERISTICS COMMAND 


3 
sROUTINE TO ISSUE A WRITE CHARACTERISTICS 
OMMAND 


SO THAT OTHER COMMANDOS WILL BE ACCEPTED 


R4 


RO 


CARRY 


ADDRESS OF PACKET FROM TEST 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONTENTS 


SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 
BENSSW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 


BENBSW 

R4, TSDBCRS) 
PC ,.CHKTSSR 
208 


608% 
Heys de oR1 


R3,MESBFA 
70% 
TSSRCRS),RO 
PC 


sSAVE THE GENERAL REGISTERS 
sCLEAR BUFFER ENABLE SWITCH 
COMMAND 


368R, IF SSR IS SET AND OK 
s6R IF TROUBLE CARRY = CLEAR 
sREAD TSSR 

3SET UP EXPECTED 

sWAS OFF LINE SET IN TSSR 
s8R, IF NO OFL SET 

3sMAKE THEM LOOK ALIKE 


SPOINT TO WRT CHARA DATA PACKET 
sGET ADDRESS OF MESSAGE BUFFER 
sSTORE FOR PRINT ROUTINES 

3SET CARRY NO TROUBLE 

sExIT 

sCARRY CLEAR = ERROR 

sRETURN TSSR CONTENTS 

sRETURN 


SEQ 56 


ro 


CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 20-APR-84 08:12 PAGE 43 SEQ 57 
REWIND - POSITION TAPE (REWIND) COMMAND 
pee -SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
1 
1909 3¢ 
1910 3 
ty :THIS ROUTINE WILL REWIND THE SELECTED TAPE. 
1 
1913 3 CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 
1914 ; TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
1915 3 SSR TO SET IN THE TSSR 
1916 3 
1917 3 
1918 sCALLING SEQUENCE: 
1919 3 
1920 3 DO A SOFT INIT 
1921 3 DO A WRITE CHARACTERISTICS 
1922 3 JSR PC ,REWIND 
1923 3 
1924 3 INPUT: 
1925 3 
1926 3 RS FIRST DEVICE UNIBUS ADDRESS 
1927 3 
1928 3 
1929 sOUTPUT 
1930 3 
1931 3 RO THE CONTENTS OF R4 IS PASSED TO RO 
1932 3 
1933 3 
1934 3- 
1935 010434 REWIND: : 
1936 010434 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
1937 010440 012704 010530 MOV @RWPACK ,R 3sGET PACKET ADDRESS 
1938 010444 010465 177776 MOV R4, TSDBCRS) 3sSEND PACKET ADORESS TO EXECUTE 
1939 010450 012703 000550 MOV @360., R3 sENOUGH TIME FOR 2400' REEL TO REWIND 
1940 010454 004737 017120 108: JSR PC, WALTF sWAIT FOR SSR TO SET 
1941 010460 103417 bcs 20% sLEAVE WHEN SSR IS SET 
1942 010462 DELAY 250. sWAIT FOR .25 SECONDS 
010462 012727 000372 MOV 250. ,(PC)> 
010466 000000 -WORD O 
010470 013727 002116 MOV LSDLY,CPC)> 
010474 000000 -WORD O 
010476 005367 177772 DEC -6(PC) 
010502 001375 BNE .-4 
010504 005367 177756 DEC -22(PC) 
010510 001367 BNE .-20 
1943 010512 005303 DEC R3 sBUMP COUNTER DOWN 
1944 010514 001357 BNE 108% 3sKEEP GOING 
1945 010516 000241 cLC sCLEAR CARRY TO SET ERROR 
1946 010520 010400 20%: MOV R4,RO sPASS THE PACKET ADDRESS 
1947 010522 000207 RTS PC sRETURN 
1949 010524 .BLKB 10-<, - TUV2AE7> 
1951 010530 RWPACK: 
1952 010530 102010 . WORD 102010 sPOSTION COMMAND CREWIND) 


1953 010532 000000 -WORD O sNOT USED 


azn TK - “Sbeb ane T CT 9 


PACKE 


002206 
000020 


017236 
017236 
177777 
017236 
177776 


000027 


000010 002246 


» SBTTL 


3¢ 


GS 


ragno M1200 20-APR-84 08:12 PAGE 44 


CKRAM 


- COMPARE RAM TO I/O PACKET 


3 
sROUTINE TO READ THE FIRST 6 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


3 

3 INPUT: 

: 

3 R4 
; RS 


Q 
; OUTPUT: 
b 


3 CARRY 
8 


SIDE EFFECTS: 


108: JSR 


308: SEC 
50%: MOV 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


‘ 
sIMPLICIT OUTPUT: 


R2, TSOBHCRS) 
PC .CHKTSSR 
TSBAL(RS), (RL) 
i a 


#8. ,RAMSIZ 
PC 


THE TABLE hen TS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10° 8. FOR PRAMPKT ROUTINE 


sSAVE THE GENERAL REGISTERS 


sCLEAR THE ERROR FLAG 


sWAIT FOR SSR TO SET 
sSELECT NEXT RAM ADORESS 
sWAIT FOR SSR TO SET 

sREAD THE RAM DATA 
sCOMPARE TO EXPECTED 
sBRANCH IF OK 

sSET ERROR FLAG 

sADORESS OF NEXT RAM LOCATION 
sREACHED END YET ? 

sBRANCH TILL ALL READ 

sWAS AN ERROR FOUND ? 
sBRANCH IF NOT 

sCLEAR CARRY TO SHOW ERROR 


COMPARE 
sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
sRETURN 


SEQ 58 


H5 


5 Aa TK - eae Ono FRT Ba fee re ERO M1200 20-APR-84 06:12 PAGE 45 


011010 
2051 011014 


077316 


177400 
011075 
000002 


000006 


-SBTTL RAMER - READ AND DISPLAY SELECTED RAM 
3¢ 


‘ 
sROUTINE TO READ THE SELECTED RAM LOCATIONS 


3 

3 INPUT: 

: 

3 RS FIRST DEVICE UNIBUS ADDRESS 
PF CONSOLE WILL ALSO BE PRINTED TO 

3 

sIMPLICIT OUTPUT: 

3 

3 THE TABLE RAMDATA IS FILLED WITH THE 
3 DATA HELD IN RAM, 


; 

sSIDE EFFECTS: 
: 

2 

3 - 


RAMER: : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV RAMRSH,RS SRESET RS TO FIRST DEVICE + aay 
MOV @RAMDATA,R1 sADDRESS TO SAVE THE RAM 
MOV RAMHLD .R2 sBYTE ADDRESS OF THE FIRST ARAM DATA 
MOV RAMSIZ,R3 sSET THE SIZE OF THE READ UP 
10%: JSR PC,.CHKTSSR sWAIT FOR THE SSR TO SET 
MOVB R2, TSOBHCRS ) sSELECT NEXT RAM ADDRESS 
JSR PC .CHKTSSR sWAIT FOR SSR TO SET 
MOVB TSBALCRS), CR1)> iREAD THE RAM DATA 
208: ADD #1,R2 sADDRESS OF THE NEXT RAM a 
soB R3,10% sNUMBER OF LOCATIONS COUN 
MOV RAMSIZ,R4 iGET THE RAM SIZE 
MOV RAMHLD ,R2 sGET THE STARTING RAM ADDRESS 
ADO R2,R4 sCALCULATE THE END ADDRESS 
SUB #1,R4 sCORRECT VALUE OF PRINTOUT 
PRINTX @RAMIOP, R2,R4 sRAM ADORESS = 10 - 17, ETC. 
MOV R4,- 5 
MOV R2, -CSP 
MOV @RAMIOP, -( SP) 
MOV @3,-C 
MOV SP 
TRAP CSPNTX 
ADD #10,SP 
MOV @RAMDATA,R1 sADDRESS OF WHERE RAM DATA IS 
MOV RAMSIZ,.RS sTHE SIZE OF THE RAM FIELD READ 
30%: CLR Ra 3NO EXTRA DATA LEFT OVER 
MOVB (R1)+,R4 sPICK UP BYTE OF RAM DATA 
BIC #177400 ,R4 sGET RIO OF SIGN EXTEND 
PRINTX @RAMPD,R4 :"010 211 111 222 377 000 123 134 ETC.” 
MOV R4,-(SP) 
MOV OR »-(SP) 
MOV @2,-(SP) 
MOV SP, 
TRAP CSPNTX 
ADD 06 


» SP 
$oB R3, 3508 sLOOP UNTIL ALL PRINTED 


SEQ 59 


I5 


IKEA Tk-25 F F 7 -APR- PAGE 45- 
Ritch”. "KeRB SRS BYRPCANsBfecreD "Ran “W200 20-APR-04 08:12 PAGE 45-1 on 
2052 011016 000207 Sos: RTS PC RETURN 
2054 011020 000000 RAMHLD: .WORD 0 :RAM ADDR HOLDER 1ST ADDRESS 
2055 011022 000000 RAMRSH: :WORD 0 iMOLOS RS FOR LATER 
2056 011024 045 = «116 04S. RAMIOP: “ASCIZ ‘NSA Ram Address (Octal) = SO3SA - sO3=N: 
2057 011075 04S 101-040 RAMPD: | :ASCIZ ‘A OSHA 


2059 


EXRAMS "ROMPARE HAM YO°198 CHARAETERTEE SES Baia” 


2061 


011110 


011210 


012701 
012702 
005003 


177776 


000010 
000176 


002246 


- SBTTL 
3° 


J5 


-64 08:12 PAGE 46 


CKRAM2 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


: 
sROUTINE TO READ THE FIRST 6 OR 10 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 


3 
3 INPUT: 


SIDE EFFECTS: 


10$: JSR 


30%: SEC 
50$: RTS 


ADORESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PACKET 
CLR - RAM DOES NOT MATCH PACKET 


sIMPLICIT OUTPUT: 


@RAMDATA,R1 
R3 

PC,.CHKTSSR 
PC,.CHKTSSR 
Re, TSOBHCRS ) 
PC ,.CHKTSSR 
TSBALCRS),.CR1) 
CR1)+,CR4)> 
20% 

R3 

Re 

#8. ,RAMSIZ 
Re, HEND -2 
10$ 

R3 

30$ 

50% 

PC 


THE TABLE hea IS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10. 8. OR 10. FOR PRAMPKT ROUTINE 


sSAVE THE GENERAL REGISTERS 
sADORESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF any RAM DATA 


sWAIT FOR SSR TO SET 
sSELECT NEXT RAM ADDRESS 
sWAIT FOR SSR TO SET 
sREAD THE RAM DATA 
sCOMPARE TO EXPECTED 
sBRANCH IF OK 

sSET ERROR FLAG 

sADDRESS OF NEXT RAM LOCATION 
3;ASSUME NORMAL NOT SET 
}REACHED END YET ? 
sBRANCH TILL ALL READ 


SEQ 61 


KS 


GRNSE "BBR URINE, ve SESE GBAPRRS?O-APR-O4 08:12 PAGE 47 


CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


011212 


000012 


3¢ 


- SBTTL 


: 

sROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
s;BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


: 
3 INPUT: 
3 
’ 
3 


3 
sCUTPUT: 
é 


g 


55$: 
60%: 


CARRY 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 


SET - MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON’T MATCH 


3 
s IMPLICIT OUTPUT: 


EXPMSG BUFFER IS SET TO EXPD DATA 

RECMSG BUFFER IS SET TO RECV DATA 

RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 

RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 

SAVREG sSAVE R1-RS UNTIL NEXT RETURN 

MOV RO,RCVHIADD sSAVE RECV HIGH ADDRESS 

MOV R1,RCVLOAD sSAVE RECV LOW ADDRESS 

TST K TENABLE sTESTING ABOVE 28K? 

BEQ 108% 36R IF NO 

JSR PC ,SETMAP sRETURN ADORESS BIASED TO PAR6 IN RO 

MOV RO,R1 3sGET RETURNED ADDRESS BIASED TO PAR6 

CLR R4 sWORD IN BUFFER 

CLR R3 sCLEAR ERROR SEEN FLAG 

MOV R2,R5 3GET EXPD BUFFER ADORESS 

MOV (R2), EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 

MOV CR1),RECMSGCR4) ;SAVE RECV FOR ERROR REPORT 

CMP (R2)+, CR1)> sEXPD EQUAL RECV? 

BEQ 25% 38R IF YES 

INC RS 3sSET ERROR SEEN FLAG 

ADD @2,R4 sPOINT TO NEXT WORD ADDRESS 

CMP R4,014 sDONE FIRST 7 WORDS? 

BLE 15% 368R IF NO 

24 > tenia ttre a ee FEATURES SET IN EXPD? 
3 

CMP R4,016 3D0NE EXTENDED FEATURES WORD? 

BLE 15$ 368R IF NO 

TST R3 sANY ERRORS SEEN? 

BEQ 55% :68R IF NO 

cLCc 3SET FAILURE 

BR 60$ 3 

SEC 3SET SUCCESS 

RTS PC sRETURN 


SEQ 62 


CZTKFA TK-25 FRT END FUNC @2 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


011450 
011452 


int 


MACRO M1200 20-APR-84 06:12 PAGE 48 


-SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


3¢ 


3 

sROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


3 

3 INPUT: 
RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
R2 EXPD MESSAGE BUFFER ADDRESS 
RS NUMBER OF BYTES TO COMPARE 

OUTPUT: 
CARRY SET - MESSAGE BUFFERS MATCH 


CLR - MESSAGE BUFFERS DON’T MATCH 

IMPLICIT OUTPUT: 
EXPMSG 
RECMSG 

RCVHIADD 

RCVLOADD 


BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADORESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 


sSAVE R1-RS UNTIL NEXT RETURN 
CMP R3, @RECMSG - EXPMSG; 880 Is Py ABOVE MAX ALLOWED? 
BLE S$ 3880 BR IF NO 
MOV @RECMSG -EXPMSG ,R3; 88D 

UGMSG 


58: MOV sSAVE RECV HIGH ADDRESS 
sSAVE RECV LOW ADDRESS 


sm 28K? 
sRETURN ADORESS BIASED TO PAR6 IN RO 


MOV RO,R1 sGET RETURNED ADDRESS BIASED TO PARG6 
108: CLR R4 sWORD IN BUFFER 
CLR RS sCLEAR ERROR SEEN FLAG 


(R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOVB (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 


(R2)+,CR1)> sEXPD EQUAL RECV? 
BEQ 25% s6R IF YES 
INC RS sSET ERROR SEEN FLAG 
25%: ADD @1,R4 sPOINT TO NEXT BYTE 
CMP R4,R3 sOONE ALL BYTES? 
BGE 50% sBR IE YES 
BR 15% 300 NEXT BYTE 
50$ TST RS sANY ERRORS SEEN? 


;BR IF NO 


SEQ 63 


MS 


GRISES ™ GBobRle IRENE tPressROPMBEPERS 20-00R-84 08:12 PAGE 48-1 me 
222 ouiase goeeet BE cos ‘anon 
2223 011460 000261 SS$: SEC sSET SUCCESS 
74 011462 000207 608: RTS PC sRETURN 
2226 011464 120 122 117 DEBUGMSG: -ASCIZ ‘PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' ;aa0 


2227 011554 045 116 045 FERCM: .ASCII /SNSA s00/ 
2228 011565 040 040 124 ERCM: -ASCIZ / TSSR ERROR CODE REC'D = / 
2229 011620 0S6 056 O56 SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 
tty 011653 124 105 123 TINERR: . a TEST: ...7 


NS 


CZTKFA TK-25 FRT END FUNC #2 MACRO M1200 20-APR-84 08:12 PAGE 49 SEQ 65 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2233 
2234 
2235 3¢ 
2236 3 
$44 sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 
3 
2239 3 INPUT: 
2240 3 
ott 3 Ri CONTENTS OF TSSR AT ERROR 
3 © 
oss ;SIDE EFFECTS: 
Fy 
2245 3 EXECUTES DROP UNIT TO CEASE TESTING 
2246 3 
2247 8- 
2248 
2249 011666 BGNMSG SFIMSG 
011666 SFIMSG: : 
2250 011666 004737 005264 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2251 011672 004737 020154 JSR PC ,CKDROP sOROP UNIT, IF ALLOWED 
2252 011676 ENOMSG 
011676 L10003: 
011676 104423 TRAP C$mMSG 
2253 
2254 3° 
2255 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
34 ;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
3 
2258 3; INPUTS: 
2259 + 
2260 . R1 TSSR CONTENTS 
2261 : R4 ADDRESS OF COMMAND PACKET 
2262 : 
2263 :- 
2264 
2265 011700 BGNMSG PKTSSR 
011700 PKTSSR: : 
2266 011700 004737 005264 JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2267 011704 012700 000004 MOV @4,RO 3NO. OF WORDS IN PACKET 
2268 011710 004737 007072 JSR ec: * PRIPKT iPRINT THE CONTENTS OF COMMAND PACKET 
2269 011714 013700 002716 MOV MESBFA, RO sADDRESS OF MESSAGE nore 
2270 011720 005001 CLR R1 sASSUME NO HIGH ME 
2271 011722 004737 014062 JSR PC,PRMESS SPRINT THE MESSAGE BUFFER ALSO 
2272 011726 ENOMSG 
011726 L10004; 
011726 104423 TRAP C$MSG 
2273 
2274 z¢ 
2275 sPRINT ROUTINE TO PRINT THE CONTENTS OF 
ery ;TSSR AND A GET STATUS COMMAND PACKET. 
3 
2278 ; INPUTS: 
2279 ; 
2260 ; R1 TSSR CONTENTS 
2281 3 R4 ADDRESS OF COMMAND PACKET 
2282 ; 
F 


B6é 


CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 20-APR-64 08:12 PAGE 49-1 SEQ 66 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2284 
2285 011730 BGNMSG PKTGETS 
011730 PKTGETS:: 
2286 011730 004737 005264 JSR PC .PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
2287 011734 012700 000002 MOV @2,RO0 sNO. OF WORDS IN GET STATUS PACKET 
2288 011740 004737 007072 JSR PC, ,PRIPKT {PRINT THE CONTENTS OF COMMAND PACKET 
2289 011744 ENOMSG 
011744 L10005: 
011744 104423 TRAP C8MSG 
2290 
2291 
2292 se 
44 sPRINT TSSR ERRORS FOR INITIALIZATION TESTS 
t 
2295 s INPUTS: 
2296 i 
2297 3 Ri TSSR CONTENTS 
2298 3 Ra ADDRESS OF COMMAND PACKET 
2299 s- 
2300 
2301 011746 BGNMSG SFFMSG 
011746 SFFMSG:: 
2302 011746 004737 005264 JSR PC .PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
2303 011752 ENOMSG 
011752 L10006: 
011752 104423 TRAP CsmsG 
2304 
2305 
coos -SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
ae 
2308 a 
2309 sPRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
te sBUFFER FOR ERROR REPORTS 
3 
2312 s INPUTS: 
2313 A 
2314 3 R1 CONTENTS OF TSSR 
2315 : Re LOW ORDER MESSAGE BUFFER 
2316 F R3 HIGH ORDER MESSAGE BUFFER ADDRESS 
4444 3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
t- 
2319 011754 BGNMSG PKTMES 
011754 PKTMES:: 
2320 011754 004737 005264 JSR PC,PRITSSR sPRINT CONTENTS OF TSSR 
2321 011760 010200 MOV R2,RO sLOwW ORDER ADDRESS 
2322 011762 010301 MOV R3,R1 sHIGH ORDER ADDRESS 
2323 011764 004737 014062 JSR PC,PRMESS ‘PRINT THE MESSAGE BUFFER 
2324 011770 ENOMSG 
011770 L10007;: 
011770 104423 TRAP C8mMSG 


C6 


ROSSER ™ Bark TER? AbBRELE ano PGER "1200 20-APR-84 08:12 PAGE SO a o 
2327 \SBTTL ADOSSR - PRINT TEST ADDRESS AND TSSR 
2329 SPRINT ROUTINE TO PRINT THE CONTENTS OF 
2330 rTSSR AND A MEMORY TEST ADDRESS 
27382 L INPUTS: 
2333 ry 
3334 ; RS FIRST DEVICE UNIBUS ADDRESS 
2335 ; ERRHI HIGH ORDER MEMORY TEST ADDRESS 
2336 ; ERRLO LOW ORDER MEMORY TEST ADDRESS 
t- 
2338 
2339 011772 ADDSSR 
011772 ADDSSR: : 
2340 011772 004737 010026 JSR —s- PC, PRITADD PRINT MEMORY TEST ADDRESS 
2341 011776 016501 000000 MOV TSSACRS),R1 iGET CURRENT TSSR 
3342 012002 004737 005264 JSR _—s- PC, PRITSSR SPRINT THE CONTENTS OF TSSR REGISTER 
2343 012006 ENOMSG 
012006 10010: 
012006 104423 TRAP —-CSMSG 
3345 
2346 .SBTTL MSGEXP - PRINT WRITE CHAR, EXPD-RECV MESSAGE BUFFERS 
3¢ 
2348 3 
2349 PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
4b 
2351 IMPLICIT INPUTS: 
2353 ; EXPMSG - EXPECTED MESSAGE BUFFER 
2354 ; RECMSG - RECEIVED MESSAGE BUFFER 
2355 : RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADORESS 
2356 " RCVLOADO- RECEIVED MESSAGE BUFFER LOW ORDER ADORESS 
2358 012010 ‘ BGNMSG MSGEXP 
012010 MSGEXP: : 
2359 012010 012700 000007 MoV @7,R0 ;ASSUME NO EXT FEATURES 
2360 012014 008787 015422 S$: JSR PC. PRISGEXP PRINT EXPO/RECV MESSAGE BUFFERS 
012020 L10011: 
asgo 012020 108828 TRAP — C8MSG 


CZTKFA TK-25 FRT END FUNC @2 


FIFEXP 


D6 


MACRO M1200 20-APR-84 08:12 PAGE 51 


- PRINT FIFO EXP/RECV DATA 


012143 


012074 
000002 


000006 
012143 
000001 
000004 
015772 


116 
116 


-SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
s¢ 


;PRINT ROUTINE TO PRIN’ FIFO EXP/RECV DATA 
: 


’ Ri - BYTE COUNT 
F 
sIMPLICIT INPUTS: 
3 
3 EXPMSG - EXPECTED MESSAGF BUFFER CCONTAINS FIFO DATA ONLY 
3 RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
| 
FIFEXP 
FIFEXP:; 
INTX @FIFIMSG,R1 sPRINT BYTES TRANSFERRED 
MOV R1,-C(SP) 
MOV OF IF 1MSG, -( SP) 
MOV @2,-(SP) 
MOV SP, 
TRAP CSPNTX 
ADD @6,SP 
PRINTX @F IF2QMSG sPRINT HEADER MSG 
MOV OF IFQMSG, -( SP) 
MOV #1,-(SP) 
MOV SP, 
TRAP CSPNTX 
ADO 04, 
MOV R1,RO 3GET BYTE COUNT 
JSR PC ,PRBYTEXP sPRINT FIFO BYTES IN ERROR 
ENOMSG 
L10012: 
TRAP C8mMSG 
045 FIFIMSG: -ASCIZ ‘sNSA NUMBER OF BYTES TRANSFERRED = #02’ 
045 FIFOMSG: — -ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR: ' 


E6 


SEESTAL™ BRIEPTSARRUENE ABER anBI*REQSMAZ Br ARRGPR-O# 08:12 PAGE S2 


2402 012202 012701 012244 
2403 012206 012100 


2434 012716 
012716 
2435 012716 012701 0127460 


-SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
3¢ 


: 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
a 


’ 
sIMPLICIT INPUTS: 


3 EXPMSG - EXPECTED MESSAGE BUFFER 
: RECMSG - RECEIVED MESSAGE BUFFER 
3 RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNMSG MSGSTAT 
MSGSTAT:: 
MOV @STATCOD,.R1 sASCII ADDRESS TABLE 
108: MOV CR1)+,RO sD0NE ALL MSG LINES? 
BEQ 20% 3s@R IF YES 
PRINTX sPRINT STATUS BIT NAMES 


MOV SP 
TRAP CSPNTX 
ADD @4,SP 
BR 10$ :00 ANOTHER MSG LINE 
208: MOV #10. ,RO sNUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC ,.PRMSGE XP SPRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10013: 
RAP C8mMSG 
STATCOO: . WORD 1%,28,3%,4%,5%,68,0 
1%:.ASCIZ ‘sNSA Tepe Bus Signels in Word 068:' 
2¢:.ASCIZ ‘sNSA PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2>’ 
3%:.ASCIZ ‘sNSA IRESV2<14> IIDENT<11> IHER <8> ION<5> IFBY<1>' 
4%:.ASCIZ ‘sSNA IRESV1<13> ICER <10> ISPEED<7> ILOP<4> IFPT<O>’ 
5$%:.ASCIZ ‘sNSA Tape Bus Signele in Word @9:' 
veibaeee yaa DATMIS<7> ILW<6> OUTRDY<5> INRDY<4>' 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
3° 


b 

sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

: 

sIMPLICIT INPUTS: 
- EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 

BGNMSG MSGLOOP 

MOV @LOOPCOD,.R1 sASCII ADDRESS TABLE 


SEQ 69 


SElNate™ LRT" Poh 


2436 012722 
2437 012724 


2 
HEADER 


ss BUFFERS 
108: MOV 
BEQ 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
6R 
208: MOV 
JSR 
ENOMSG 
L10014: 
TRAP 
013152 LOOPCOD: 
045 1%:.ASCIZ 
045 2%:.ASCIZ 
045 3%:.ASCIZ 
045 
045 5%:.ASCIZ 
045 6$%:.ASCIZ 
045 7%:.ASCIZ 
.EVEN 


aetna 


F6 


20-APR-84 08:12 PAGE S2-1 


‘SNSA IHISP=>IEOT<12> 

4%:.ASCIZ ‘sNSA IWFEM =>IFMK<09> 
: ‘SNSA ITADO=>IRDY<06> 
‘SNSA IREW => IDBY<03> 

‘sgNSA IGO 


1DONE ALL MSG LINES? 
:8R IF YE 
sPRINT STATUS BIT NAMES 


300 ANOTHER MSG LINE 
sNUMBER OF WORDS IN A READ STATUS BUFFER 
sPRINT EXPO/RECV MESSAGE BUFFERS 


Signele in Word #6:' 


IRESV2< 14> IRESV1<13>° 
IWRT=>IIDENT<11> IREV = >ICER <10>' 
IEDIT=>IHER <O08> IFAD *=>ISPEED<07>' 
ITAD1=>IONL <05> IERASE=>ILOP <0O4>’ 
IRWU =>IRWD <02> IFEN *=>IFBY <O1>’ 


=>IFPT<00O>' 


SEQ 70 


G6 


SEISGS iRiNFMUREAE SWE Shen oPSERDC"DSPPen?2-A0R-O4 08:12 PAGE 58 


2455 


013574 
013574 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 


000012 
015422 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


s¢ 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
‘ 


° 
sIMPLICIT INPUTS: 


EXPMSG - EXPECTED MESSAGE BUFFER 
RECMSG - RECEIVED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 


RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
hs PC ,PRMSGE XP ;PRINT EXPD/RECV MESSAGE BUFFERS 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3° 


;PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
a 
s IMPLICIT INPUTS: 


3 ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

3 ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

3 Exp - EXPECTED DATA 

3 RECV - RECEIVED DATA 

- 
BGNMSG MEMADD 

MEMADD: : 
JSR PC ,PRIADD sPRINT MEMORY ADDRESS IN ERROR 
MOV EXPO ,R1 3GET EXPD DATA 
MOV RECV,R2 sGET RECEIVED DATA 
JSR PC,PRIXOR sPRINT EXPD/RECV 

L10016: 


TRAP C$MSG 


SEQ 71 


BAAS R 1 ™ “Ba rhE RAN ANB Sak er of 


013776 


002206 


177777 
177777 


177400 


177777 
177777 


002176 
002200 
013776 
000005 


000014 
002246 
002246 


000010 
002246 
116 


002200 
002176 


045 


H6 
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-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 
. 


;PRINT ROUTINE TO DISPLAY a — DATA 
— THE RAM DATA DOES NOT MATCH. 


3 T INPUTS: 
; Ra POINTER TO COMMAND PACKET 
SIMPLICIT INPUTS: 

RAMSIZ NUMBER OF BYTES IN. PACKET 


IF RAMSIZ*O THEN DEFAULT TO 8. 
IMPLICIT OUTPUTS: 


& RAMSIZ SET T0 0 
ge 
PRAMPKT ; 
SAVREG sSAVE R1-RS gt 8 NEXT RETURN 
MOV @RAMDATA,R1 :DATA FROM THE R 
CLR R2 sINIT BYTE NUMBER 
S$: CMPB CR1)¢,CR4)> i COMPARE a RECEIVED 
BNE 7$ s6R IF NO MATCH 
7$: MOVB -1€R1),R5 1GET RECV RAM DATA 
MOVB -1€R4),R3 sGET EXPD PACKET DATA 
XOR RS,R3 sXOR EXPD/RECV 
BIC #177400,R3 sLOW BYTE ONLY 
MOvVB -1(€R1),RECV sGET RECEIVED RAM DATA 


MOVB -1(R4), EXPO sGET EXPECTED RAM DATA 
PRINTB @RAMASE .R2, »RECV.EXPO,R3 


MOV 2. -C(SP 

MOV @RAMASC, -( SP) 
MOV @5,-(SP 

MOV 


108: INC Re sUPDATE BYTE COUNT 
TST RAMSIZ sDEFAULT TO 8.? 
BEQ 15% 38R IF YES 
CMP R2,RAMSIZ sO0NE ALL BYTES? 
BLE 53 38R IF NO 
BR S$ Hy 
15% CMP R2,08. sD00NE DEFAULT NUMBER OF BYTES? 


208: BLT 5$ 3BR IF NO 
sSET DEFAULT RAMSIZ 


RTS sRETURN 
RAMASC: — ‘SNSA BYTE: SD28A RAM: SOSA Packet: SO38A XOR: 803° 


SEQ 72 


BASS “BRINE CONFENYS of Messe Bur 


S8 
2559 
2560 


2569 014106 
2570 014110 
2571 014112 


2575 014164 


2582 014222 
2583 014222 


011022 
003102 


014714 
000003 


000010 
177777 


014634 
000001 


000004 
014761 
000001 


000004 


020270 


16 
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» SBTTL 
3° 


PRMESS 


- PRINT CONTENTS OF MESSAGE BUFFER 


5 
sTHIS ROUTINE PRINTS THE CONTENTS OF 
sTHE 7 WORD MESSAGE BUFFER RETURNED BY THE 


3TK-25 
a 
s INPUT: 
o 
3 a LOW ORDER ADDRESS OF MESSAGE BUFFER 
3 R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 
3 NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 
4 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
: 
3: 
PRMESS: 
SAVREG sSAVE THE REGISTERS 
MOV »RAMRSH sSAVE DEVICE REGISTER POINTER 
MOV RS sSAVE LOW ORDER ADORESS 
TST K TENABLE sADDRESS ABOVE 28K? 
BNE 108 36R IF YES 
CLR R1 3SET HIGH ORDER ADORESS TO 0 
108: MOV R1,R3 sSAVE HIGH ORDER ADORESS 
ROL sSHIFT BIT1S TO C BIT 
sSHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @PROASC,R1,RS sPRINT MESSAGE BUFFER ADDRESS 
MOV »-C(SP) 
MOV R1,-CSP) 
MOV @PROASC, -( SP) 
MOV @3,-CSP) 
MOV RO 
TRAP CSPNTX 
ADD #10,SP 
CMP @177777,CRS) sMESSAGE BUFFER FULL OF ONES 
BNE 15% 36R IF BUFFER IS PROBABLY OKAY 
PRINTX @MESBFN s “MESSAGE BUFFER PROBABLY NOT VALID” 
MOV OME SBFN, -( SP) 
MOV #1,-CSP) 
MOV SP, 
TRAP CSPNTX 
ADO @4,SP 
158: PRINTX @PRIASC sPRINT HEADER FOR CONTENTS 
MOV @PRIFSC, -( SP) 
MOV #1, -( SP) 
MOV RO 
TRAP CSPNTX 
ADD 04,SP 
CLR RS sNUMBER OF THE NEXT WORD 
MOV R5,.R1 sCOPY LOW ORDER ADDRESS 
MOV R3, sCOPY HIGH ORDER ADDRESS 
BEQ 208 38R IF NOT ABOVE 28K 
JSR PC, SE TMAP sSETUP PAR ADDRESS IN RO 
one MOV RS sGET PAR FORMAT ADDRESS ABOVE 28K 
PRINTX @MESHEA,(RS)> sPRINT “MESSAGE BUFFER HEADER =" 


SEQ 73 


CZTKFA TK-25 FRT END FUNC @2 


PRMESS 


2587 


2589 


2590 
2591 
2592 


2593 


014222 
014224 


012737 


015017 
000002 


015064 
000002 


015131 
000002 


000006 


015176 
000002 


000006 


015243 
000002 


000096 


015310 
000002 


000006 


015355 
000002 


000006 
000001 002134 


014536 
000001 


000004 
000010 002246 


MACRO M1200 20-APR-84 
- PRINT CONTENTS OF MESSAGE BUFFER 


J6 


06:12 PAGE 55-1 


CRS)+, -CSP) 
SHEA, -( SP) 

2, -(SP) 

»RO 
CSPNTX 
#6, SP 
@DATAFL CRS )> 
CRS)+, -CSP) 
@DATAFL, -( SP) 
2, -(SP) 
SP RO 
CSPNTX 
#6,SP 
@RBPCRA, (RS )> 
CRS)+,-CSP) 
@RBPCRA, -( SP) 
@2,-(SP) 
SP RO 
CSPNTX 
#6 ,SP 
@XSOCON, CRS )> 
CRS)+, -C SP) 
@XSOCON, -( SP) 
#2, -(SP) 
SP ,RO 
CSPNTX 
#6 ,SP 
eeggcen, cS 

a tos 


#6 ,SP 
@XS3CON,(RS)> 
CRS)+, -CSP) 
2, -(SP) 

SP ,RO 

CSPNTX 

#6 ,SP 

@1, TRANSTST 
50% 


04 ,SP 
08. ,RAMSIZ 


sPRINT 


sPRINT 


sPRINT 


sPRINT 


sPRINT 


sPRINT 


“DATA FIELD LENGTH 


“RESIDUAL BYTE COUNTER 


“XSTATO CONTENTS 


“XSTAT1 CONTENTS 


“XSTAT2 CONTENTS 


“XSTATS CONTENTS 


;CHECK FOR DUMP 
36R, IF NO DUMP REQUIRED 


sRAM FIELD IS 8 BYTES LONG 


a” 


SEQ 74 


CZTKFA TK-25 FRT END FUNC 62 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


2594 014456 012737 000020 
004737 010636 
000040 


2597 014476 0047357 010636 
000060 


2606 014714 045 


2615 015355 045 


MACRO M1200 20-APR-84 


011020 MOV 
JSR 

011020 MOV 
JSR 

011020 MOV 
JSR 

002246 MOV 
011020 MOV 
JSR 

508; RTS 


045 PROASC: .ASCIZ 


IK6 


06:12 PAGE 55-2 


@20 ,RAMHLD sFIELD STARTS AT 20 OCTAL (10 HEX) 
PC ,RAMER sREAD AND PRINT THEM 

040 , RAMHLD sFIELD STARTS AT 40 OCTAL (20 HEX) 
PC ,RAMER sREAD PRINT M 

#60 , RAMHLD iFIELO STARTS o 60 OCTAL (30 HEX) 
PC ,RAMER sREAD AND PRINT THEM 

#16. ,RAMSIZ iRAM FIELO IS SIXTEEN BYTES LONG 
#100 ,RAMHLD sFIELO STARTS AT 100 OCTAL (40 HEX) 
— nan PRINT THEM 


SEQ 75 


RE 
eNwA eeeeeecece SPECIAL CONTROLLER RAM MEMORY DUMP sesceaeces’ 


SNSA Message Bu 


‘sSNA MESSAGE —— CONTENTS _PROBABL Y 
‘SNBA Message Buffer Contents: ' 


‘NBA Buffer Header 
‘SNBA Date Field L th 
‘SNBSA Residuel Byte Counter 
‘gNSA XSTATO Contents 

‘@gNBA XSTAT1 Contents 

‘@NBA XSTAT2 Contents 

‘@gNSA XSTATS Contents 


BaRRREE 


= 601805’ 


CZTKFA TK-25 FRT END FUNC 02 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


2641 


015705 
000005 


000014 


MACRO M1200 20-APR-84 06: 


L6 


12 PAGE 56 SEQ 76 


-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


Px G:) 

3 

sROUTINE TO PRINT 
3 

3 RO - 


‘ 
sIMPLICIT INPUTS: 


EXPECTED AND RECEIVED MESSAGE BUFFERS 
NUMBER OF WORDS IN BUFFER 


3 EXPMSG - EXPECTED MESSAGE BUFFER 
; RECMSG - RECEIVED MESSAGE BUFFER 
H RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; VLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
ed 
PRMSGEXP: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RS SAVE NUMBER OF WORDS 
MOV RCVLOADD ,RO 3GET RECV LOW ADDRESS 
MOV RO,R4 sCOPY LOW ADDRE 
MOV RCVHIADO,R1 sGET RECV HIGH ADDRESS 
ROL RO sSHIFT BIT1S TO C BIT 
OL R1 sSHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX @PRMSGO,R1,R4 sPRINT MESSAGE BUFFER ADDRESS 
MOV R4,-CSP) 
MOV R1,-CSP) 
MOV .- CSP) 
MOV @3,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
#10,SP 
PRINTX @PRMSG1 sPRINT HEADER FOR CONTENTS 
MOV @PRMSG1, -(SP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTX 
ADO @4,SP 
CLR R4 sNUMBER OF THE CURRENT WORD 
MOV @EXPMSG .R1 sGET EXPD BUFFER ADDRESS 
MOV @RECMSG ,R2 ;GET RECV BUFFER ADDRESS 
20%: MOV (R1),RO sGET EXPO 
MOV CR2),R3 sGET RECV 
xOR RS 3XOR EXPD/RECV 
PRINTX @PRMSG2,R4,(R1)+,CR2)¢,R3 
MOV R3,- ) 
MOV (R2)+,-CSP) 
MOV (R1)+,-CSP) 
MOV R4,- ) 
MOV » (SP) 
MOV o5,-C 
MOV SP ,RO 
TRAP CSPNTX 
ADD #14,SP 
INC R4 sNUMBER OF THE NEXT 
CMP R4,RS sD0NE ALL YET? 
BGE 50% 3;6R IF YES 
BR 20% 300 ANOTHER 
50%: RTS PC sRETURN 


M 
SID BERT BBC ess OR-0 ose PE 6 me 9 


2654 

2655 015602 045 116 045 PRMSGO: .ASCIZ ‘SNSA Message Buffer Address = #01805’ 

2656 015647 045 116 045 PRMSG1: .ASCIZ ‘sNSA noscege Buffer Contents: ’ 

od 015705 045 116 045 PRMSGe: — ‘NBA @8D2sA EXPD: SO68A RECV: SO68A XOR: #06’ 


2659 


N6 


GRIVGEd:*BRGRT EDRORYW TES am PSPTREM ARB ABE GOREEA 812 PAGE 57 


-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


015772 
015772 


016176 


110337 
122122 


012746 


002264 
016273 
000002 


000010 


3° 


: 
sROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 


3 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
a 
ry RO - NUMBER OF BYTES IN BUFFER 
3 
sIMPLICIT INPUTS: 
; 
3 EXPMSG - EXPECTED MESSAGE BUFFER 
Hy RECMSG - RECEIVED MESSAGE BUFFER 
PRBYTEXP:: 
SA G sSAVE R1-RS UNTIL NEXT RETURN 
MOV RO,RS ;SAVE NUMBER OF BYTES 
CLR sINIT ERROR C T 
CLR R4 R OF THE CURRENT BYTE 
MOV @EXPMSG ,R1 3sGET EXPD BUFFER ADDRESS 
MOV @RECMSG ,.R2 3GET RECV BUFFER ADDRESS 
208: MOVB CR1),RO 3sGET EXPD BYTE 
BIC @tC<377>,RO sCLEAR UPPER BYTE 
MOVB RO,FRBEXP sSAVE FOR ERROR REPORT 
MOVB (R2),R3 ;GET RECV BYTE 
BIC @tC<377>,R3 3 AR UPPER BYTE 
MOVB »PRBREC sFOR ERROR _°ORT 
xOR RO,R3 3XCR EXPD/RECV 
CMPB (R1)+,CR2)+ seXPD = RECV? 
BEQ 308% 36R IF YES 
INC PRMNO sUPDATE ERROR COUNT 
CMP PRMNO, 08. pg 8? 
BHI 30% R IF YES 
278: PRINTX @PRBMSG,R4, PRBEXP, PRBREC ,R3 
MOV R3, -(SP) 
MOV PRBREC, -CSP) 
MOV PRBEXP , -C SP) 
MOV R4,-C 
MOV SG, -CSP) 
MOV #5.-C 
MOV SP ,RO 
TRAP CSPNTX 
14,SP 
FORCEXIT 50$ 3880 
35% 3880 
30$: 
FORCERROR 27$,NOTSSR 3880 
35%: 3880 
INC R sNUMBER OF THE NEXT 
CMP R4,R5 sDONE ALL YET? 
BGE 50$ ;BR IF YES 
BR 20% 300 ANOTHER 
50$: PRINTX @PRBTOT,PRMNO sPRINT TOTAL ERROR COUNT 
MOV PRMNO, -( SP) 
MOV @PRBTOT, -( SP) 
MOV @2,-CSP) 


MOV SP ,RO 
CSPNTX 


SEQ 76 


B7 


TKFA Tk-25 FRT 4 -APR-84 08:12 PAGE 57- 
ENROR BYTES IN CAPOREC FeSSARE y ’ — 


YTEXP - “BRIN C MESSAGE BUFFER 
016200 062706 000006 ADO #6 ,SP 
ton 016204 000207 RTS PC + RETURN 


2706 016206 045 116 045 PPOMSG: .ASCIZ ‘SNSA BYTE @8D25A EXPD: SOSSA RECV: SO3SA XOR: #03’ 
tad 016275 045 116 045 PRBTOT: .ASCIZ ‘SNSA NUMBER OF BYTES IN ERROR = #02’ 


-EVEN 
2709 016340 000000 PRBEXP: .WORD 0 sEXPO 
2710 016342 000000 PRBREC: .WwORD 0 sRECV 


2711 


CZTKFA TK-25 FRT END FUNC @2 
EXPREC - PRINT EXPD/RECV WORD DATA 


016344 

016344 

016344 004737 007474 
016350 

016350 

016350 104423 


C7 


MACRO M1200 20-APR-864 06:12 PAGE 58 


-SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 


3 
sPRINT ROUTINE TO OISPi.AY EXPD/RECV DATA 


’ 
s INPUTS: 


3 R1 
i Re 
3 

3 — 


RECEIVED DATA 
EXPECTED DATA 


EXPREC 
PC ,PRIXOR sPRINT THE DATA 


C8MSG 


SEQ 80 


D7 
E<PBREC§™ “PrrhP EBB REYES BFre pRPRRO "1200 20 APR-84 08:12 PAGE 59 SEQ 81 


2731 -SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
e732 3° 


i 
itn} sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
+ 5 


i" 
2737 s INPUTS: 


2739 ’ R1 RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 


2744 016352 BGNMSG EXPBREC 

016352 EXPBREC: : 
2745 016352 004737 007344 JSR PC ,PRIBXOR sPRINT THE DATA 
2746 016356 E 

016356 10020: 

016356 104423 TRAP C8MSG 


2751 -SBTTL RAMERR - PRINT RAM AND PACKET DATA 
2752 a 


3 
2754 sPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
2756 L INPUTS: 
2757 3 
2758 3 Ra POINTER TO COMMAND PACKET 
3 
2760 sIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMSIZ NUMBER OF BYTES IM PACKET 
IF RAMSIZ=O THEN DEFAULT TO 8. 
IMPLICIT OuTPUTS: 


RAMSIZ SET TO 0 


N 
~~ 
a 
uv 


2771 016360 BGNMSG RAMERR 
2772 016360 004737 013630 JSR PC ,PRAMPKT sPRINT RAM/PACKET DATA 


016364 104423 TRAP C$mMSG 


the -SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
3° 
2779 ;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


3 
2781 s INPUTS: 


RANT ADO" PRI 


016376 
016376 


FRT 
NT T 


004737 
004737 


104423 


010026 
013630 


R4 


RAMDATA 
RAMSIZ 


ERRHI 
ERRLO 


IMPLICIT OUTPU 
RAMSIZ 


oe ce Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge oe oF oF 


RAMTADD: : 
JSR 
JSR 
ENOMSG 
L10022: 
TRAP 


- SBTTL 


3¢ 

’ 

sPRINT ROUTINE 
PF 

s INPUTS: 


10023: : 


.SBTTL 
s° 


H 
sPRINT ROUTINE 


E/ 


ERP ABe$E, nal"RB PHERE, BR;EPR-O4 08:12 Pace 59-1 


POINTER TO COMMAND PACKET 


IMPLICIT INPUTS: 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ*O THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 

TS: 


SET 10 0 

RAMTADD 

PC ,PRITADD sPRINT TEST ADDRESS 
PC ,PRAMPKT sPRINT RAM/PACKET DATA 
C$MSG 

RAMEXP - PRINT RAM EXPD/RECV DATA 


TO DISPLAY EXPD/RECV DATA 


RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 


RAME XP 

@tC<377>,R1 sSAVE EXPD RAM DATA BYTE 
@tC<377>,R2 sSAVE EXPD RAM DATA BYTE 
PC ,PRIRAM sPRINT THE RAM ADDRESS 
PC ,PRIXOR sPRINT THE DATA 

CsmSG 


TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 


sAND TIMER A,B HEADER MESSAGE 


3 

s INPUTS: 

i 

5 R1 
3 Re 


RECEIVED DATA 
EXPECTED DATA 


SEQ 62 


F7 


TKFA TK-25 FRT FUNC @ mL 20-APR-84 PAGE 59- 
Fincxe “BRint TENeR X'S Rao exboRee "1200 saateaes . eo oe 
2833 ‘- P 
3834 
2835 016422 BGNMSG TIMEXP 
016422 TIMEXP: : 
2836 016422 PRINTX @TIMSGO ;PRINT HEADER 
016422 012746 016450 MOV @TINSGO, -(SP) 
016426 012746 000001 MOV #1, -C 
016432 010600 MOV SP, RO 
016434 104415 TRAP CSPNTX 
016436 062706 000004 ADD 64,SP 
2837 016442 004737 007474 JSR PC: PRIXOR ;PRINT THE DATA 
2838 016446 ENOMSG 
016446 L10024: 
016446 104423 TRAP  CSMSG 


2840 
poet) 016450 045 116 045 i -ASCIZ ‘sNSA TIMER A STATUS IS IN BIT 3SNSA TIMER B STATUS IS IN BIT 2° 


CZTKFA TK-25 FRT END FUNC 


2 MACRO M1200 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


116 


G7 


20-APR-84 08:12 PAGE 60 SEQ 84 


-SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 
3¢ 
5 
sPRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 


é 
: INPUTS: 
3 
: Ri CONTENTS OF TSSR 
: Re DATA WRITTEN (8 BITS) 
: 
g° 
BADSSR 
BADSSR: ; 
R2, -(SP) sSAVE DATA TRANSFERRED 
BIC #177400 ,R2 sGET JUST ONE BYTE 


PRINTB @XFERASC,R2 
MOV R2, -(SP) 

MOV @XFERASC, -( SP) 
MOV @2,-CSP) 


MOV SP ,RO 

TRAP CsPNTB 

ADO 6,SP 

MOV (SP )+,R2 sRESTORE R2 

JSR PC ,.PRITSSR sDECODE TSSR CONTENTS 
ENOMSG 


L10025: 
TRAP CsmMSG 
045 XFERASC: -ASCIZ ‘sSNA Date Transferred = #03' 


EZ TKAA K- 


016710 
016712 


012765 


WINES SECTION’ 


000000 
017120 
000000 


176277 
002200 


H/ 


MACRO M1200 20-APR-84 08:12 PAGE 61 


-SBTTL GLOBAL SUBROUTINES SECTION 


tee 
THE GLOBAL SUBROUTINES SECTION a THE SUBROUTINES 


3 
5 Tm T ARE USED IN 
ie 


THAN ONE T 


-SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 


3° 


: 

sROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
sBY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


3 

s INPUTS: 

3 

3 RS 
3 

sOUTPUTS: 


RO 


CARRY 


3 


ADDRESS OF FIRST REGISTER 


CONTENTS OF TSSR, IF ERROR 
WAS OKAY 


SET IF INIT 


CLEAR IF FATAL ERROR 
CALLING SEQUENCE : 


@ADORESS RS 
PC, SOF INIT 
CONT INVE 


#0, TSSRC(RS) 
PC ,WAITF 
Lb RS),RO 


sREPORT FATAL ERROR 


s SAVE THE REGISTERS 
: OO THE INIT. 
WAIT FOR SSR 
iGET THE TSSR REGISTER 
sSTART SETUP OF EXPECTED TSSR 


RO 
@tC<HIADOR!OFL>, aa sCLEAR OUT 


@SSR!NBA,R4 
R4,RO 

S$ 

10% 


PC 


UNUSED BITS 
sR4 WAS EXPECTED CONTENTS 
sONLY EXPECTED BITS SET ? 
sBRANCH IF OKAY 
sCLEAR THE CARRY FOR ERROR 
sGO TO EXIT 
sSET THE CARRY BIT 
sRETURN TO CALLER 


SEQ 65 


ZTKFA mm - 25 _ FRT_END FUNC 
AMB 


% 
2937 016714 


2960 017012 


100000 
174077 


000200 
000040 
zee 
000040 
000006 


. SBTTL 


17 


2 MACRO M1200 20-APR-84 08:12 PAGE 62 
CHECK TSSR FOR AMBIGUITY 


CHKAMB - CHECK TSSR FOR AMBIGUITY 


} THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
“ae AMBIGUITY 


PINPUT: 
: 
: 


; 
sOUTPUT: 


S$: 


108: 


408: 


45%: 
50$: 


CONTENTS OF TSSR 


CONTENTS OF TSSR 
SET - NO AMBIGUIT 


CLR - AMBIGUOUS CONTENTS 


RO.R4 sCONTENTS OF TSSR 
@sc ,RO sIS BIT 15 SET ? 
S$ sBRANCH IF YES 
*C<NBALOFL !SSR!MTADOR> RO sANY OTHER BITS SET ? 
40 sMUST BE AN ERROR 
ass sRETURN WITH SUCCESS 
@SSR,RO sIS READY BIT SET ? 
os sBRANCH IF READY BIT IS SET. 
= RO 11S FATAL ERROR BIT SET ? 
sERROR IF NOT 
@rcTERCLS, R4 sCLEAR ALL BUT TERMINATION CODE 
R4, 016 sALL THREE BITS MUST BE SET 
40$ sERROR IF NOT SET 
453% sOK IF ALL ARE SET 
#BITS,RO sIS FATAL ERROR BIT SET ? 
453s sERROR IF BIT IS SET WITH SSR 
@BIT2:BIT1,RO ;IS THIS A FUNCTION REJECT 
45% sBR, IF TSSR IS OK 
one sAMBIGUOUS CONTENTS 
sSHOW SUCCESS - NO AMBIGUITY 
PC sRETURN TO CALLER 


sSAVE THE GENERAL REGISTERS 


SEQ 86 


CZTKFA TK-25 FRT END FUNC @2 


J7 
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ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


2963 


) 
017014 


017015 


017016 
017020 


000200 
000001 


000 

000 
000000 
000000 
010046 
013700 
012720 
012720 
012600 
011646 
012766 
011646 
012766 
000002 


000340 000002 


-SBTfL ENAINT,OSBINT - ENABLE/DISABLE INTERRUPTS 


DEFAULT DISPLAY INTERRUPT HANOLERS. 
IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 


BIT DEFINITIONS FOR “INTMASK” AND “INTFLAG” BYTES: 


SEQ 87 


IOKCKIN*BIT7 s DON'T CHECK FOR BAD _— -- TEST WILL. 


IOKSTP*BITO s EXPECT “STOP” INTERRUPT 
3 
s INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
INTMASK ; Y t) 
sINTERRUPT FLAG -- = yy GOT ONE CIF POSITIVE) 


INTFLAG: -BYT 

sSAVED INTERRUPT VECTOR: 

INTVEC: .WORD 0O 

sSAVE CPU PC 

INTCPC: .WORD 0O 

sSUBROUTINE TO ENABLE INTERRUPTS: 

ENAINT: MOV RO, -( SP) sSAVE RO 
MOV IVEC,RO sGET POINTER TO VECTORS 
MOV @INTR,(RO)> sSET UP INTERRUPT VECTOR 
MOV @PRIO7,(RO)> 
MOV (SP)+,RO sRESTORE RO 
MOV (SP), -(SP) 
wt #0,2¢SP) sSET CPU TO LEVEL O 


;SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
MOV @PRIO7,2(SP) 


Gata * ™ gRrERA UY aNbceke 


3001 
3002 
3003 


017110 


017116 
017116 
017116 
017116 


012737 


000001 
017015 
00000 


7 
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002172 
017014 
017015 


INTR:: 


- SBTTL 


BISB 


INTR - INTERRUPT HANDLERS 

INTR sDEF INE INTERRUPT ENTRY 

#1, INTRECV sSET FLAG TO SHOW INTERRUPT RECEIVED 
INTFLAG sCLEAR FLAG TO SAY WE GOT INTERRUPT 


+ sg » INTMASK rEXPECTING STOP INTERRUPT? 
@IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


+ REGISTERS, MSG BUFFER, ETC. 


L10026 


ENOSRV 
* ATI 


SEQ 88 


CZTKFA TK-25 FRT END FUNC 02 


WAITF 


3031 
3032 


- WAIT FOR SUBSYSTEM READY 


104422 
012746 


012727 
000000 
013727 
000000 


000000 
013727 
000000 


177776 
000001 
002116 
177772 
177756 
000000 


000001 
002116 
177772 
177756 


; 
s INPUTS: 
: 
i 


. SBTTL 
; 
3 SUBROUTINE TO 


OUTPUTS: 


2s: 


3%: 
4$: 


RO 
CARRY 


L/ 


MACRO M1200 20-APR-84 08:12 PAGE 65 


WAITF 


- WAIT FOR SUBSYSTEM READY 


WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF nT oct TSSR READ 


SET - READY 


T SET 
CLR - TIMEOUT WAITING FOR READY 


CsBRK 
#177776, -CSP) 


1 
eee 
peacoat 
—- 
"32cec) 

-20 
TSSRCRS),RO 
RO 


. 

#1,(PC)> 
LSDLY,C(PC)+ 
ce) 


s 00 A SUPVSR BREAK FIRST. 


sB8IG MSEC TIMER 
sDELAY 100US 


sREAD THE TSSR REGISTER 
sTEST FOR READY BIT SET 


s EXIT ON STOP FLAG. 
3; WAIT 100 USEC 


s DO A SUPVSR BREAK FIRST. 


sREDUCE DELAY COUNT 
sRETRY UNTIL TIMER EXPIRES 
3C =0, So pg STILL RUNNING... 
3...OR Nag UP AFTER 300 MSEC. 
3 Ces CONTROLLER IS STOPPED. 
‘RESTORE STACK WITHOUT CHANGING CARRY BIT 


SEQ 89 


M7 


CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 20-APR-84 08:12 PAGE 66 SEQ 90 
CHKTSSR - CHECK TSSR FOR READY 
sod -SBTTL CHKTSSR - CHECK TSSR FOR READY 
3049 3° 
3050 3 
3051 :THIS ROUTINE WAITS FOR READY IN THE TSSR 
oone ;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 
’ 
3054 3 INPUT: 
3055 3 
soos 8 RS ADDRESS OF CSR REGISTERS 
3 
3058 sOUTPUT: 
3059 F 
3060 3 RO CONTENTS OF TSSR 
3061 3 CARRY SET - OKAY 
3062 3 CLR - NOT READY AMBIGUOUS, OR SC SET 
3063 3 
3064 3° 
3065 
3066 017236 CHKTSSR: 
3067 017236 004737 017120 JSR PC ,WAITF sWAIT FOR READY 
3068 017242 103014 BCC 20% sBRANCH IF TIME OUT 
3069 017244 004737 016714 JSR PC, CHKAMB 3TSSR AMBIGOUS? 
3070 017250 103006 BCC 10$ 3;8R IF YES 
3071 017252 032700 100000 BIT @SC RO sSPECIAL CONDITION SET? 
3072 017256 001405 BEQ 15% 368R IF NO 
3073 017260 032700 074000 BIT @<SCE!BIE!RMR!INXM> ,.RO sANY ERROR BITS SET? 
3074 017264 001402 BEQ 15$ 3 F 
3075 017266 000241 10$: CLC 3SET FAILURE 
3076 017270 000401 BR 20% Fy 
3077 017272 000261 158: SEC 3SET SUCCESS 


3078 017274 000207 20%; RTS PC sRETURN TO CALLER 


nea TK - “fetes BO OU fenr ern tooo 20-APR-84 08:12 PAGE 67 


017312 
017314 


017316 


012737 
012737 
005003 


017330 000004 
000200 000006 


017340 


002136 


002152 
002164 


- SBTTL 


3; ON 


XNXM - CHECK FOR NONEXISTENT MEMORY 


: "ROUTINE To ae FOR A NEXM IN THE RANGE (R1) THRU (R2). 
RETURN, IF “C” = é° (R1) = NEXM ADDRESS. 
"C” = 0, ALL ADDRESSES OK. 


3 MOV ADR2,R2 

3 JSR PC,NXM 

3 URN 

3 

XNXM: MOV 23 ,804 
MOV oPRIO4 , 806 
CLR R3 

18: TsT CR1) 
CMP R1,R2 
BEQ $ 
ADD #2,R1 
BR i$ 

2s: COM R3 
MOV #3$,(SP) 
RTI 

3$: CLRVEC 04 

Vv @4,RO 

TRAP CsCvEC 
TST R3 
BEQ +4 
SEC 
RTS PC 


3; EXIT WITH “C” SET IF 


sTEST “C” AND PROCEED. 
s SET BUSERR VECTOR. 


sFLAG. 
sTEST THE ADDRESS(ES). 


sIF ANY TRAP, CONTINUE AT 2$. 


sOTHERWISE, CONTINUE HERE. 
sBR IF FINISHED (NO NEXM’S). 
sSET NEXT ADDRESS... 

s...AND CONTINUE. 


sGOT ONE, SET FLAG... 
:..-AND DISMISS INTERRUPT.. 


;...AND GIVE BACK THE VECTOR. 


s0ID WE CATCH ONE ?? 
sNO, "C” = 0, SKIP NEXT. 


sYES, “C” = 1, (R1) = NEXM ADDR. 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 
3¢ 
; SUBROUTINE TO EXECUTE TEST ITERATIONS. 


LOOPS 


ALLOWED AND LOOP COUNT NON-ZERO. 


; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
CALL: LOOPTO ARG 


3 
3 
i 
T 


1$: 


2s: 
3$: 


STLOOP: : 


NOITS 
1$ 

aqvPp 

1$ 
LOOPCNT 
2s 

3$ 

PC 


3 ITERATIONS INHIBITED? 
3; YES. 


3; NO. 
sLOOPS DISALLOWED ze QUICK PASS. 


; BUMP LOOP COUNTE 
sLOOP DISALLOWED, OR DONE. 
;LOOP ENABLED. 


SEQ 91 


¥eTtoor "Ere 


3 

3161 
3162 
pecs 


017410 
017410 
017412 


64 017416 


° 
017522 


FRT 
CK ITERATION COUNT 


ND FUNC #2 


000000 
012737 


013700 
104451 


003106 
017656 
005232 


017014 
002150 
003062 


160000 


160001 


177777 
002150 


B8 
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a 


sOUTPUT: 
8 
8 


-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


PRINT THE NUMBER AND 

INCREMENT neat am TO INDICATE THE NUMBER OF TESTS 

IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


NAME OF EACH TEST AS WE GO AL 


POINTER TO TEST IO ASCIZ STRING 


ADDRESS OF FIRST DEVICE REGISTER 


a 
s IMPLICIT OuTPUTS: 


TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
$ 
sSIOE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP:: 


003130 


0031350 38: 


003060 2%: 


RO, -( SP) sSAVE THE TEST ID MESSAGE 

SIFLAG s CLEAR “SOFT INIT” FLAG 

ERAK s CLEAR LOCAL ERROR COUNTER. 

EXTA 3s CLEAR ERROR EXTENSION FLAG. 
INTMASK 3 CLEAR INTERRUPT MASK (CHECK ERROR ) 
UNITN,RO s GET THE UNIT NUMBER 

RO 3 ... AND MAKE IT A WORD OFFSET. 
NODE V s OID STARTUP FIND THE DEVICE? 

4% s BR IF VES 

38 3; BR IF NOT IDLE 

#160000 ,.ERTABL(RO) ; FLAG ERROR IN THE ERROR TABLE 
1,NXR,NXRERR s NO DEVICE HERE -- PRINT IT 
ee 

NXR 

— 

#160001 ,ERTABL(RO) 3; FLAG ERROR IN THE ERROR TABLE 
2,NOINIT s DEVICE NOT IDLE 

CSEROF 

NOINIT 

@-1,0UFLG + OROP THE UNIT 

UNITN 

UNITN,RO 

cs 


+ ABORT THE PASS 


SEQ 92 


FETSERS™:BnGRT PERI He no iMEFREABRPOUAPSAPR-O8 08:12 PAGE 68-1 


001000 


123 


4$; 


18; 


58: 


045 TNAM: 


TRAP 
BR 


C8 


CsO0CLN 
 ] 


(SP )> 
CSRADOR ,RS 
PC 


‘SSSTSA Test’ 


s GET THE OPERATOR FLAGS. 
s PRINT THE TEST NUMBERS? 
IF NO 


t 
sGET THE ID MESSAGE 
sOISPLAY THE TEST ID 


+ BUMP TEST COUNTER. 
sPRIORITY THAT OF DEVICE 


sFIX UP THE STACK 
s ADDRESS OF TSV REGISTERS ON UNIBUS 


SEQ 935 


D8 


SETERA ™-BArRPTERNBREUNE CPE yep MACRO M1200 20-APR-84 08:12 PAGE 69 SEQ 94 
3125 ; .SBTTL TSTEND - PRINT ERRORS RECEIVED 
3197 : AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
3198 ; IF NORMAL ERROR REPORTING IS DISABLED (FLA; IER). 
1 
3200 017620 TSTEND: RFLAGS 
017620 104421 TRAP. CSRFLA 
3201 017622 030027 020000 BIT  RO,@IER 
3202 017626 001412 SEQ Stséi’ 8 ; BR IF “IER” NOT SET. 
3203 017630 PRINTF @€SUM,ERRK ; PRINT ERROR COUNT. 
017630 013746 017656 MOV. —ERRK, -( SP) 
017634 012746 017660 MOV ,-(SP) 
017640 012746 MOV —s-:@2, -( SP) 
017644 O1 MOV 
017646 104417 TRAP —- CSPNTF 
017650 062706 000006 ADD «6, 
3208 017654 000207 1: RTS 
32306 017656 000000 ERRK: 0 ; LOCAL ERROR COUNT. 


3207 017660 045 101 040 ESUM: -ASCIZ /#A SDA ERRORS/ 
3208 017677 105 122 122 EMAXDU: .ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 


-EVEN 

3210 
tt -SBTTL IMCERK - INCREMENT LOCAL ERROR COUNT 
44 ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 
3215 017744 005237 017656 INCERK:: INC ERRK s INCREMENT LOCAL ERROR COUNT 
3216 017750 010046 MOV RO, -( SP) s SAVE RO 
3217 017752 013700 002150 MG ¥ UNITN,RO 3 GET UNIT NUMBER, 
3218 017756 006300 ASL RO s ... AND MAKE IT A WORD OFFSET 
3219 017760 062700 003130 ADO @ERTABL .RO s RO GETS ADDRESS OF ERROR TABLE ENTRY. 
3220 017764 005210 INC (RO) s INCREMENT THE DEVICE ERROR COUNT 
3221 017766 032710 007777 BIT @7777,CRO) s OID WE OVERFLOW THE FIELD? 
3222 017772 001001 BNE 1% s BR IF NO. 
3223 017774 005310 DEC (RO) s YES -- BACK IT WP TO 7777. 
3224 017776 012600 1%: MOV (SP )+,RO s RESTORE RO 
os 020000 000207 RTS PC s RETURN TO CALLER. 
3227 020002 010046 CKEMAX: MOV RO, -( SP) s SAVE RO 
3228 020004 013700 002150 MOV UNITN,RO s GET UNIT NUMBER 
3229 020010 006300 ASL RO s ... AND MAKE IT A WORD OFFSET 
3230 020012 016000 003130 MOV ERTABL(RO),RO ; GET ERROR TABLE ns 
3231 020016 042700 170000 BIC #170000 ,RO s EXTRACT ERROR COUNT FIELD 
3232 020022 020037 002142 CMP RO, GERRMAX s IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 
3233 020026 103004 BHIS 1% s BR IF YES 
3234 020030 023737 017656 002140 CMP ERRK ,LERRMAX s IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
3235 020036 103417 BLO es : BR IF NO 
3236 020040 18: RFLAGS RO : GET OPERATOR FLAGS 

020040 104421 TRAP CSRFLA 
3237 020042 032700 000040 BIT @I0U,RO s IS DROPPING INHIBITED? 
3238 020046 001015 BNE 2s s BR IF YES. 
3239 020050 012737 177777 003060 MOV @-1,0UFLG s NO -- DROP THE UNIT 
3240 020056 ERROF 4,EMAXDU 

020056 104455 TRAP CSsEROF 

020060 000004 -WORD 4 


020062 017677 -WORD EMAXDU 


E8 


ZTKFA TK - thease FRT END F M1200 20-APR-84 08:12 PAGE 69-1 
FaceRn NCREMENT LOCAL chron COUN ee 
020064 000000 -WORD O 
3241 020066 DODU UNITN 
020066 013700 002150 MOV UNITN,RO 
020072 104451 TRAP Cs000uU 
3242 020074 OOCLN 
020074 104444 TRAP CSOCLN 
3243 020076 012600 2s: we (SP )+,RO 3 hee RO 
3244 020100 000207 RTS PC 3 RETURN TO CALLER 
aes .-SBTTL FATCHK - INC FATAL ERRORS AND CHECK FOR LIMIT 
3¢ 
3247 3 
3248 3 CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
3249 3 ERRORS AND IF OVER CALL UNIT DROP ROUTINE 
3250 : 
3251 
3252 020102 FATCHK: 
3253 020102 SAVREG sBETTER SAVE THE REGISTERS 
3254 020106 013701 002150 MOV UNITN,R1 sPICK UP THE UNIT NUMBER 
3255 020112 006301 ASL R1 sMAKE IT INTO A BYTE OFFSET 
3256 020114 062761 000001 005:30 ADD #1,ERTABLC(R1) +AD0 1 TO THE PROPER — S ERROR COUNTER 
3257 020122 005237 002170 INC FATFLG 3sBUMP FATAL ERROR COUNTE 
3258 020126 023727 002170 000031 CMP FATFLG, 25. sCHECK AGAINST 25 
3259 020134 002406 BLT 93 368R, IF LESS THAN 25 ERROR 
3260 020136 RFLAGS RO sREAD THE FLAGS INTO RO 
020136 104421 TRAP CSRFLA 
3261 020140 032700 040000 BIT serres, RO 38R, IF LOOP ON ERROR IS SET 
3262 020144 001002 BNE sOTHERWISE NEVER BE ABLE TO SCOPE ETC. 
3263 020146 004737 020154 JSR Bc, CKDROP sDROP UNIT IF ALLOWED 
3264 020152 000207 $: RTS PC sRETURN ETC. 


8 


F8 
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020222 
020222 
020226 


600 
012737 


013700 
104451 


104444 
012600 
000207 


004737 
000207 


177777 003060 
002150 


016644 


; + 
: CHECK 
CKOROP : 


1%: 


-SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 
IF UNIT SHOULD BE DROPPED 

MOV RO, -CSP) 

F 1$,NOTSSR 

RFLAGS RO 

TRAP CSRFLA 

BIT @IDU,RO 

BNE 18 

MOV CSP),RO 

MOV @-1,0UFLG 

DOD’ ITN 

MOV UNITN,RO 

TRAP cs 

DOCLN sABORT THE PASS 

TRAP Cs0CL 

MOV (SP)+,RO 

RTS 

-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 


3 
s SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM. 


3 
CONFIG: 


JSR 
RTS 


PC, SOF INIT 
PC 


SEQ 96 


ge IK 25 FRT 


END F o 
: ENABLE DE 


005737 
001403 
012737 
000207 


003100 
000001 


003100 


G8 


Pg Ra sd a n-os 08:12 PAGE 71 


177572 


177572 


3 

3: SUBROUTINE - 

KTON: TST 
BEQ 
MOV 

1$: RIS 


; 

s SUBROUTINE - DISABLE MEM MGT. 
TST 
BEQ 


3 
KTOFF: 


-SBTTL KTON,KTOFF 
ENABLE MEM MGT. 


NOP 
NOP 
MOV 
RTS 


KTFLG 
1% 
#1,SRO 
Pc 


KTFLG 
i$ 


#0, SRO 
PC 


ENABLE/DISABLE MEMORY MANAGEMENT 


GOT KT? 
NO. 
YES. ENABLE KT11. 


GOT KT11? 
NO 


DISABLE KT. 


SEQ 97 


003100 


a 


H8 
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-SBTTL SETMAP 


- SETUP PAR6 MAPPING 


a 

sTHIS ROUTINE SETS UP KERNEL PAR6 TP HANOLE 
sAN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
sIS RETURNED BIASED TO PARE. 


3 
s INPUTS: 


3 RO 
n R1 


108: CLC 
15$: RTS 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


OFFSET INTO —— WITH PAR6 BIAS (I.E. THE ADDRESS) 


SET IF ~~ 
CLR IF RROR 


R1,KTFLG 


sSAVE R1-R4 UNTIL NEXT RETURN 
sSYSTEM HAVE ABOVE 28K? 


368R IF NO 
sSAVE LOW ORDER BITS 


sCONVERT WORD ADDRESS TO 32W BLOCKS 
sMAKE IT DOUBLE PRECISION 


sALINE FOR LOWER 4K BOUNDARY 
sHIGHER THAN EXISTING MEMORY? 
3sBR IF YES 

sSETUP MAPPING REGISTER PAR6 
sSETUP DISPLACEMENT IN PAGE 
sADD IN —. BIAS 

sRETURN IN RO 

ont SUCCESS 


3 iSET FAILURE 
3sRETURN 


SEQ 98 


oo tpt TK-25 FRT END FUNC @ 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


3378 020374 
3379 020374 


MACRO 


18 


M1200 20-APR-84 08:12 PAGE 75 


-SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


e 


INPUTS: 
FREE 
KTFLG 

OUTPUTS: 
NONE 


VREG 


108: 


RO = BACKGROUND PATTERN 


FILL MEMORY WITH A BACKGROUND PATTERN 


* FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
* SET TO HIGHEST MEMORY LOCATION IF > 28K. 


F RESIZ, R2 


sSAVE Ri UNTIL NEXT RETURN 
sOISABLE K 

sCOPyY TEST PATTERN 

sGET FIRST FREE LOCATION 

sSIZE OF FREE SPACE BELOW 26K. 
sSTORE A BACKGROUND WORD 

s DONE _ MEMORY IN FREE SPACE? 


ORDER ADORESS START 
sGET >26K START ADDRESS CIN 32W BLOCKS) 


sCLEAR C BIT 
sCONVERT BLOCKS TO WORDS 
sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADDRESS 
oy OF PAR6 MAPPING AREA? 


BR IF NO 
iBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sENO OF MEMORY? 
368R IF YES 
sKEEP GOING ON ETC. 
3: DISABLE KT. 


SEQ 99 


J8 


CZTKFA TK-25 FRT END FUNC 02 MACRO M1200 20-APR-84 08:12 PAGE 74 SEG 100 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
as -SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
1 ae 
pone 3 COMPARE MEMORY WITH A BACKGROUND PATTERN 
14 3 
3415 3: INPUTS: 
3416 3 
3417 3 RO = BACKGROUND PATTERN 
3418 3 FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
zee 3 KTFLG * SET TO HIGHEST MEMORY LOCATION IF > 28K. 
3 
3421 3 OUTPUTS: 
3422 3 
3423 3 CARRY - SET IF NO ERROR 
3424 ; CARRY - CLR IF ERROR 
3425 3 
saat ; IMPLICIT OUTPUTS: 
; 
3428 3 ERRHI - ERROR HIGH ADDRESS 
3429 3 ERRLO - ERROR LOW ADDRESS 
3430 3 EXPO - EXPECTED DATA 
3431 3 RECV - RECEIVED DATA 
3432 ae 
3433 020560 CMPMEM: 
3434 020560 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
3435 020564 010003 MOV RO,RS sCOPY TEST PATTERN 
3436 020566 004737 020246 JSR PC .KTOFF sOISABLE KT. 
3437 020572 013701 003072 MOV FREE ,R1 3GET FIRST FREE LOCATION 
3438 020576 013702 003074 MOV FRESIZ,R2 3sSIZE OF FREE SPACE BELOW 28K. 
3439 020602 020311 108: CMP R3,C(R1L) sFREE SPACE LOCATION EQUAL TO EXPD? 
3440 020604 001411 BEQ 15% 3BR IF YE 
3441 010137 002 MOV R1,ERRLO sSAVE ADDRESS IN ERROR 
3442 020612 005037 002202 CLR ERRHI sNO HIGH ADDRESS 
3443 020616 010337 002176 MOV R3,EXPD sSAVE EXPD FOR ERROR REPORT 
3444 020622 011137 002200 MOV CR1),RECV sSAVE RECV FOR ERROR REPORT 
3445 020626 000474 BR 50$ 3 
3446 020630 005721 15$: TST CR1)> sPOINT TO NEXT ADDRESS 
3447 020632 005302 DEC R2 3D0NE ALL MEMORY IN FREE SPACE? 
3448 020634 003362 BGT 10$ 368R IF NO 
3449 020636 005737 003100 TST KTFLG 3 GOT KT? 
3450 020642 001472 BEQ 3 NO. GET OUT. 
3451 020644 004737 020230 JSR PC,KTON s YES. ENABLE KT. 
3452 020650 005000 CLR RO sHIGH ORDER ADDRESS START 
3453 020652 013701 003104 MOV PST32QW,R1 sGET »28K START ADDRESS (IN 32W BLOCKS) 
3454 000006 .REPT 6 
3455 ROL R1 sCONVERT BLOCKS TO WORDS 
3456 ROL RO sMAKE IT DOUBLE PRECISION 
3457 .ENOR 
3458 020706 042701 000177 BIC #177,R1 sALINE 4K BOUNDARY 
3459 020712 010046 MOV RO, -CSP) sSAVE HIGH ORDER 
3460 020714 010146 MOV R1,-CSP) sSAVE LOW IROER 
3461 020716 004737 020270 JSR PC ,SETMAP sSETUP PAR6 MAPPING REGISTER 
3462 020722 010004 MOV RO,R4 sCOPY ADORESS BIASED TO PAR6 
3463 020724 012601 MOV (SP)+,R1 sRESTORE LOW ORDER IN NON PAR6 FORMAT 
3464 020726 012600 MOV (SP)+,RO sRESTORE HIGH ORDER IN NON PAR6 FORMAT 
3465 020730 020314 308: CMP R3,(R4) sABOVE 28K LOCATION EQUAL EXPD? 
3466 020732 001411 BEQ 328 3BR IF YES 


3467 020734 010037 002202 MOV RO, ERRHI sSAVE HIGH ORDER IN ERROR 


ZTKF 


A TK- 
“M - 


010137 
010337 


PARE MEMORY. TO BACK 


002204 
002176 
002200 


172354 


ROM - APR - P 74- 
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172354 
003100 


558: 
608: 


MOV 
MOV 
MOV 
BR 


K8 


R1,ERRLO 
R3,EXPD 
(R4),RECV 
50% 

#2,R1 

RO 


AR6 
SeK IPARG, KTFLG 
PC KTOFF 


60% 
PC ,KTOFF 
PC 


sSAVE LOW ORDER IN ERROR 
sSAVE EXPD FOR ERROR REPORT 
_— RECV FOR ERROR REPORT 


}UPDATE NON PAR6 ADORESS 
sMAKE IT DOUBLE PRECISION ADD 
sUPDATE PAR FORMAT ADORESS 
sEND OF PAR6 MAPPING AREA? 


;6R IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 


36R IF NO 
sTURN OFF MEMORY MAPPING 
3SET FAILURE 


’ 
sTURN OFF MEMORY MAPPING 
sSET SUCCESS 


SEQ 101 


L8 


TKFA TK- FRT END F .) MACRO M1200 20-APR-84 08:12 PAGE 75 SEQ 102 
GSAV - give R1-R ONS TREK 
3489 .SBTTL REGSAV - SAVE R1-RS ON STACK 
3490 3¢ 
3491 3 
3492 sROUTINE TO 
abe sSAVE R1 THROUGH RS ON THE STACK 
3 
3495 sCALLING SEQUENCE: 
3496 3 
ad . JSR RS,REGSAV 
3499 i THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
3500 3THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
3501 3 THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
rs | ;REGISTERS. 
3 
3504 sTHIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
3505 ;CALLED VIA A JSR PC INSTRUCTION 
3506 3 
3507 3: 
3508 
3509 021040 REGSAV: 
3510 021040 BREAK sLOOK FOR CNTL C 
021040 104422 TRAP CsBRK 
3511 021042 010446 MOV R4,-CSP) 
3512 021044 010346 MOV R3,-CSP) 
3513 021046 010246 MOV R2,-CSP) 
3514 021050 010146 MOV R1,-CSP) 
3515 021052 010546 MOV RS, -CSP) 
3516 021054 016605 000012 MOV 10.(SP),R5 
3517 021060 004736 JSR C.aCSP)>+ 
3518 021062 012601 MOV (SP)+,R1 
3519 021064 012602 MOV CSP)+,R2 
3520 021066 012603 MOV CSP )+,R3 
3521 021070 012604 MOV CSP)+,R4 
3522 021072 012605 MOV CSP)+,RS 
3523 021074 BREAK 3LOOK FOR CNTL C 
021074 104422 TRAP 3 _ 


3524 021076 000207 RTS 
3525 


M8 


F K- Fi - - ‘ 
GETEGE ™-B8r" BSB PAYER? ron BFERATBR? 20-APR-84 08:12 PAGE 76 se0 108 
ease -SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3¢ 
3529 3 
44 sROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
3 
3532 : INPUTS: 
3533 3 
3534 3 NONE. 
3535 3 
3536 sOUTPUTS: 
3537 3 
a4 3 RO OCTAL NUMBER FROM THE OPERATOR 
3 
3540 sCALLING SEQUENCE: 
3541 F 
3542 3 JSR PC ,GETPAT 
3543 : 
3544 i- 
3545 
3546 021100 GETPAT:: 
3547 021100 S G sSAVE THE GENERAL REGISTERS 
3548 021104 1%: GMANIO DATASC,PATDAT,.0O,377,0,377,NO 
021104 104443 TRAP C$GMAN 
021106 000406 BR 100008 
021110 021134 -WORD PATDAT 
021112 ‘ TSCODE 
021114 021136 -WORD ODATASC 
021116 000377 -WORD 377 
021120 ~ WORD T$LOLIM 
021122 000377 . WORD TSHILIM 
021124 10000$: 
3549 021124 BNCOMPLE TE 1$ sRETRY IF ERROR 
021124 103367 BCC 1$ 
3550 021126 013700 021134 MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
coat 021132 000207 RTS PC sRETURN TO CALLER 
3553 3+ 
3554 sLOCAL DATA AREA 
3555 8- 
3556 
3557 021134 000000 PATDAT: . s TEMPORARY STORAGE FOR DATA 


WORD. 0O 
3558 021136 105 116 124 DATASC: — ‘ENTER DATA PATTERN’ 
-Ev 


TKFA ™\- FRT END oe o 
GETSeL “F8sue MENU AND GE OPERAT 


3561 


75 
3576 021162 
3577 021162 


3583 021220 
3584 021222 


021402 


021300 
000001 


N8 
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- SBTTL 


GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


3° 
sROUTINE TO ISSUE A MENU AND GET 
;THE OPERATOR'S RESPONSE. 


: 
; INPUTS: 
; 
; RO ADDRESS OF ASCIZ STRING OF MENU 
: R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
: 
s;OUTPUTS: 
; 
; RO NUMBER OF THE OPERATOR'S SELECTION 
; 
es 
GETSEL: 
SAVREG sSAVE GENERAL REGISTERS 
MOV RO,R2 sSAVE THE MENU ADDRESS 
1 MOV R2,R3 sSTART OF MENU STRING 
2s: TST CR3) sEND OF ASCII ? 
BEQ sBRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC,(R3)+ sDISPLAY THE MENU 
MOV ‘ R3)+,- 
MOV @SELASC, -(SP) 
MOV @2,-CSP) 
MOV SP RO 
TRAP CSPNTF 
aR. esi 
3$: GMANID MENASC,MENRES,D,-1,0,-1,NO 
TRAP $ 
BR 10001$% 
-WORD MENRES 
-WORD TSCODE 
-WORD MENASC 
-WORDB -1 
-WORD TSLOLIM 
-WORD TSHILIM 
10001$: 
— 1$ sRETRY IF ERROR 
MOV MENRES ,RO ;GET THE OPERATOR'S REPLY 
CMP RO,R1 ;COMPARE TO MAXIMUM ALLOWED 
BLOS 5$ sBRANCH IF OK 
PRINTF @MENERR sDISPLAY ERROR MESSAGE 
MOV @MENERR , -( SP) 
MOV #1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
BR 1$ sRETRY 
5$: RTS PC sRETURN TO CALLER 
MENERR: .ASCIZ ‘sNSA #¢¢ Menu Selection Too Large #4’ 
SELASC: .ASCIZ ‘sNsT' 
MENASC : — ‘Enter Menu Selection: ‘ 
EV! 


MENRES: 


-WORD O 


SEQ 104 


gz TKFA TK . 


3599 


021440 


104450 
103411 


012746 
012746 


FRT END FUNC @2 MACRO M1200 
CK MANUAL INTERVENTION LEGALITY 


021440 
000001 


B9 


20-APR-84 08:12 PAGE 76 


-SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 


a 
sROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


’ 

s INPUT; 
’ 

: 
SOUTPUT: 


CARRY 


t 
sSIOE EFFECTS: 


A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 


18: 
045 NOMAN: 


0 MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


ALLOWED. 

SAVREG sSAVE THE REGISTERS 

MANUAL 3sSEE IF MANUAL INTERVENTION OK 
TRAP CSMANI 

St we as sBRANCH IF ALLOWED 

PRINTF @NOMAN sPRINT THE WARNING MESSAGE 
MOV @NOMAN , -( SP) 

MOV #1,-(SP) 

MOV RO 

TRAP CSPNTF 

ADD 04 ,SP 

cLc sCLEAR CARRY FOR ERROR 

RTS PC sRE TURN 

-ASCIZ ‘NBA eee Manuel Intervention not Allowed - Test Aborted eee' 


SEQ 105 


ish 


003072 
000002 


003074 
000004 
002012 
000007 


003072 
003074 


000002 
003076 


c9 
ERIE ™-GErCB'FROE BYNEndErnc QAREP "1200 20-APR-04 08:12 Pace. 79 


-SBTTL ENVIRN 


- SETUP FREE DIAGNOSTIC SPACE 


i 
s SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


: 
ENVIRN: MEMORY 
TRAP 


003072 
003074 
003074 10%: 


MOV 


RO 
C8MEM 
RO, FREE 


2 , FREE 
(RO), FRESIZ 
04 ,FRESIZ 
LSUNIT,R2 
@7 ,FRESIZ 
Re 


108 

FREE ,RO 
FRESIZ,RO 
#2,R0 

RO, FREEMI 
PC 


s GET 1ST FREE ADORESS... 
t...-AND WORD COUNT. 

+ GET NUMBER OF UNITS 

s TAKE AWAY 7 WORDS PER UNIT 
sGET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 


sBACKUP 1 
sSTORE LAST FREE ADDRESS 
sRE TURN 


SEQ 106 


D9 
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3651 
3652 
3653 

S4 


012716 
000002 


010037 
000207 


001577 


000004 


003100 
003100 


177740 


-SBTTL KTINIT 


a 
sROUTINE TO INIT KT-11 
’ 


t- 
KTINIT: 


18; 


KTFLG 
KTENABLE 
SHINE ,@1577 
020 BeERAVEC 
BeSRO 

LSHIME .KTFLG 
6177, KTFLG 
RO, B@ERRVEC 


@KIPARO,R1 
i cae is -40(R1) 


#200 ,RO 
RO, #2000 


18 

#177600, -(R1) 
2) 

06% ,(SP) 


RO, BOERRVEC 
PC 


- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >28K MEMORY FLAG 
INIT TEST >26K FLAG 
GOT ENOUGH 


MEMORY ( >286K)? 


NO. 
SAVE OLD ERR VEC PTR. 
SET ERR VEC PTR. 

I 
YES. SET KT FLAG. 
RESTORE an GAYA. ERR VEC PTR. 


RO = 
Ri = KI REGS PTR. 


G. 
BUMP AR DATA BY “4K”. 
AT “I/0"? 
NO. 
YES. SET KTPAR7 FOR I/0. 
SET UP RETURN 
RTI TO NEXT LOCATION 
RESTORE OLD ERR VEC PTR. 


SEQ 107 


E9 


st Se Bay cal END FUNC @2 MACRO M1200 20-APR-84 06:12 PAGE 61 SEQ 108 
3703 -SBTTL_ PROTECTION TABLE 
3704 021754 T 
021754 LSPROT:: 
3705 021754 177777 #177777 «#177777 -WORD  -1, -1, -1, -1 sNO DEVICE PROTECTION REQUIRED. 


3706 021764 ENOPROT 
3707 


ZTKFA 
NITIAL 


372 


2° SECTION 


022116 


END FUNC @2 


012737 


005762 
003106 
003102 
002246 


000036 


002150 
003060 
002150 
003130 
040000 


000035 


000037 


002162 


r9 


MACRO M1200 20-APR-84 06:12 PAGE 82 


002146 


002012 


003130 


-SBTTL INITIALIZE SECTION 


1 THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
_ THE BEGINNING OF EACH PASS. 


VIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 
sIF “CONTINUE”, NOTHING IS REQUIRED. 

é 

gee 


3° 
sINSERT TEMPORARY JUMP TO ODT 
t = 


BGNINIT 

=, 

: 

MOV #EPRT1,EPRTSW sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
CLR SIFLAG sCLEAR “SOFT INIT” FLAG 
CLR K TENABLE sCLEAR TEST ABOVE 28K FLAG 
CLR RAMSIZ sCLEAR RAM SIZE FOR RAMERR ROUTINE 
READEF @€F .CONTINUE 
MOV @€F . CONTINUE ,RO 
TRAP CSREFG 
eee 1$ 
CMP UNITN,LSUNIT sUNIT IN RANGE? 
BHIS 43 368R IF NO. 
TST OUFLG sDROPPED UNIT? 
BMI NXTU 3BR IF YES 
MOV UNITN,R1 
ASL R1 


TST ERTABL(R1) 

BEQ SETU 

BIT #BIT14,ERTABL(R1) ;OROPPED? 

BNE NXTU 

EXIT INIT 300 NOTHING IF “CONTINUE”. 


TRAP CSREFG 
BNCOMPLETE NXTU sTAKE NEXT UNIT IF NOT NEW PASS. 
BCC NXTU 
READEF @#€F .START 
MOV @EF .START,RO 
TRAP CSREFG 
BCOMPLETE 2% 
ecs es 
READEF #€F .RESTART 
— 


2s: 31ST PASS, BUS-INIT... 
BRESET sBUS RESET. 
TRAP CSRESET 
CLR TSTCNT sNUMBER OF TESTS RUN IN PASS 


SEQ 109 


G9 


KFA TK-25 F ND FUNC @2 MACRO M1200 20-APR-84 08:12 PAGE 62-1 
GAIT ial Toe -SeCt LON — 
3750 022122 005037 002170 CLR FATFLG sRESET FLAG TO ZERO “FATAL ERRORS” 
3751 022126 005037 003332 19%; CLR SKIPT 1CLEAR THE SUBTEST “SKIPPER” 
3752 022132 208: 
3753 022132 012737 177777 002152 MOV #@-1,QVP 3...QUICK VERIFY... 
754 022140 004737 021534 JSR PC, ENVIRN sSET ENVIRONMENT. 
3755 022144 004737 021622 JSR PC,KTINIT INITIALIZE KT MEMORY MANAGEMENT 
3756 022150 012700 003130 MOV @ERTABL ,RO 
3757 022154 005020 308: CLR CRO)> sCLEAR THE ERROR TABLE 
3758 022156 7 003330 CMe RO, OERTABE 
3759 022162 103774 BLO 
3760 022164 000404 aR 4s 
3761 022166 005037 002152 318: CLR ave 
3762 022172 000137 022242 JMP PASRPT 3GO REPORT THE STATUS 
3764 022176 4: 
3765 022176 012737 177777 002150 NEWPAS: MOV @-1,UNITN sINIT UNIT NUMBER 
3766 022204 005037 002166 CLR DEVCNT sCLEAR COUNT OF DEVICES RUNNING 
3767 022210 NXTU: BREAK 
022210 104422 TRAP CsBRK 
3768 022212 005237 002150 . INC UNITN 3...AND SET NEXT UNIT NUMBER. 
3769 022216 023737 002150 002012 CMe UNITN,LSUNIT 
3770 022224 103423 BLO SETU 
3771 022226 012737 177777 003060 MOV @-1,0UFLG 
3772 022234 000401 BR 118 
3773 022236 DOCLN s:ABORT, NO MORE UNITS. 
022236 104444 TRAP CSOCLN 
3774 022240 000240 118: NOP 
3775 022242 PASRPT: 
3776 022242 023727 002012 000001 CMP LSUNIT, @1 sHOW MANY UNITS SELECTED? 
3777 022250 101752 BLOS NEWPAS 38R IF ONLY 1 
3778 022252 005737 002166 TST DEVCNT 3ARE ANY STILL RUNNING? 
3779 022256 001747 BEQ NEWPAS 38R IF NO 
3780 022260 RFLAGS RO 
022260 104421 TRAP CSRFLA 
3781 022262 032700 000100 BIT @ISR,RO sSHOULD WE PRINT STATISTICS 
3762 022266 001343 BNE NEWPAS :8R IF NO 
3784 022270 DORPT 
022270 104424 TRAP CSDRPT 
3785 022272 000741 BR NEWPAS 
3786 022274 108: 
3788 022274 SETU: GPHARD UNITN,RO ;GET UNIT N P-TABLE POINTER. 
022274 013700 002150 MOV UNITN,RO 
022300 104442 C$GPHRO 
3789 022302 BNCOMPLETE tatu 3BR IF UNIT NOT AVAILABLE. 
022302 103342 Bcc 
3790 022304 005037 003060 CLR DUFLG sCLEAR “DROPPED” FLAG. 
3791 022310 005237 002166 INC DEVCNT 
3792 022314 012001 MOV (RO)+,R1 :GET 1ST REGISTER ADDRESS. 
3795 022316 010137 002154 MOV R1,CSRADOR sADDRESS OF REGISTERS OF UNIT UNDER TEST 
3795 022322 012001 MOV (RO)+,R1 sGET VECTOR ADDRESS. 
3796 022324 011002 MOV (RO) ,R2 sGET INTERRUPT PRIORITY 
3797 022326 010237 002160 MOV R2, IPRI 3SET INTERRUPT PRIORITY 
3798 022332 010137 002156 MOV R1,IVEC eset INTERRUPT VECTOR POINTER. 
3799 022336 012721 017066 MOV @INTR,(R1)> . VECTOR... 


CZTKFA TK-25 FRT END FUNC 02 
INITIALIZE SECTION 


3800 
3801 


022342 


3802 022344 


022474 
022474 


022476 


010221 


013701 


023727 


3005 
010157 
012737 


012700 
104441 


104411 
045 


003062 
002154 


000000 
017276 


003062 
177777 


116 


H9 
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003130 


003000 


045 


MOV R2,(R1)+ 3...AND PRIORITY. 


18; 
5 TST QvP s1ST PASS ?? 
3 BEQ S$ sNO, SKIP THE PASS 1 STUFF. 


2 
31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
sTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


: MOV —sUNTITN, R1 


ASL Ri 
BIS +t Maas ERTABL(R1) ;SAY DEVICE RUNNING 
CLR ExT sCLEAR ERROR EXTENSION FLAG. 
CMP CSUNIT, #1 SARE WE TESTING MULTIPLE UNITS? 
BLOS 108 36R IF NO. 
RFLAGS RO sYES -- GET OPERATOR FLAGS. 
TRAP CSRFLA 
BIT @PNT RO sSHOULD WE PRINT UNIT 0? 
BEQ 108 36R IF NOT 
PRINTF @PUNIT,UNITN iPRINT THE “UNIT r.) 
MOV UNITN, -C(SP) 
MOV @PUNIT, -C SP) 
MOV @2,-(SP) 
MOV SP, 
TRAP CSPNTF 
ADO “6, 
108: 
CLR Vv 
MOV CSRADOR ,R1 sADDRESS OF F as ee 
MOV R1,R2 3sSTART OF REGIST 
ADD @TSSR ,R2 sADORESS OF oeeRe REGISTER 
JSR PC , XNXM TEST BOTH ee REGISTERS... 
Bcc 2s .AND BR IF ALL OK. 
MOV aw NODE V IFLAG DEVICE AS NON-EXISTENT 
a MOV #-1,0UFLG sOROP THIS UNIT. 
3 
sFINALLY, SET CPU PRIORITY AND WE'RE DONE. 
g 
S$: SETPRI @PRIOO sENABLE INTERRUPTS. 
MOV @PRIOO,RO 
TRAP CsSPRI 
ENDINIT 
10030: 
TRAP CsINIT 
PUNIT: .ASCIZ /sNSNBAseeee TESTING UNIT SD28A seeee/ 


-EVEN 


SEQ 111 


TKFA TK-25 FRT END F 
AND DROP UNITS SEC 


3875 


022714 


104452 


012737 
010001 


| ed 


100000 


040000 003150 


022612 
000002 
000006 


116 


177777 


140000 
000240 


022716 
000002 


000006 


19 
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003130 


045 


003060 


003130 
000240 


-SBTTL ADD AND DROP UNITS SECTIONS 


. 
THE ADD-UNIT SECTION CONTAINS THE CODING THAT a A DEVICE 
TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST T 

OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 


LSAU:: 
MOV RO,R1L i 
ASL Ri 3 
BIS #100000, ramtaat. 


R 
§ 


IT TO BE ADDED (RO) 
INDEX 


I 
s SET THE “ACTIVE” BIT 
BIC #40000 ,ERTABL(R1 s CLEAR THE “DROPPED” BIT 
PRINTF @1%,RO0 
RO, -(SP) 
MOV #1%,-(SP) 
MOV @2,-(SP) 
Vv SP, 
TRAP CSPNTF 
@6,SP 
EXIT AU 
-WORD JS JMP 
.WORD L10031-2-. 
18: -ASCIZ /SNSA UNIT SDSA ADDED/ 
-EVEN 
ENDAU s UNUSED. 
L10031: 
TRAP CsAu 


THE OROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 


y 
3 
t 
: 
s SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
s “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD” 
s COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
s WHICH ARE STILL ACTIVE. 
s UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


L$DU:: 
@-1,0UFLG 
MOV RO,Ri 
ASL R1 
BIS #140000 ,ERTABL(R1) 3s SAY DROPPE 
240,240,240 3 22222222? 
PRINTF #@1%,RO 


MOV 2, 
MOV SP, 
TRAP CSPNTF 
ADD #6, SP 
EXIT Ou 


-WORD  JSJMP 
-WORD 110032-2-. 


SEQ 112 


CZTKFA TK-25 FRT END FUNC 02 
ADD AND DROP UNITS SECTIONS 


022716 


045 


104455 


012703 
004737 
103420 
012727 
000000 
013727 
000090 


116 


000550 
017120 


000372 
002116 
177772 
177756 


020154 


JY 
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045 18: -ASCIZ /SNSA UNIT SDSA DROPPED/ 

Pda ay 

L10032- 
TRAP Cs0u 

oe 

; AUTO-DROP CODE SECTION. 

gee 
BGNAUTO 

LSAUTO:: 
MOV #360. RS sENOUGH TIME FOR 2400' REEL TO REWIND 

108: JSR PC ,WAITF sWAIT FOR SSR TO SET 
Bcs 20% sLEAVE WHEN SSR IS SET 
DELAY sWAIT FOR .25 SECONDS 


250. 
MOV #250. ,(PC)+ 
. WORD 
MOV LSOLY,CPC)+ 
-WORDB 0 


DEC -6(PC) 
BNE . 8 
DEC -22(PC) 
BNE .-20 
DEC R3 
10% 
JSR PC ,.CKDROP 
208: 
ENDAUTO 
L10033: 
TRAP CsaAuTO 


sBUMP COUNTER DOWN 
sKEEP GOING 
sTRY AND DROP UNIT 


3 UNUSED. 


SEQ 113 


Sera S aA TK ae he FRT 


K9 


we o MACRO M1200 20-APR-84 08:12 PAGE 84 
CODING SECTIONS 


005737 
100407 


013705 
012765 
004737 


104412 


010346 
012746 


003060 


002154 
000000 
017120 


023314 
00000 


040000 
170000 


023351 
000003 


000010 
160000 


023421 


-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


se 


THE CLEANUP CODING SECTION ———- THE CODING THAT IS 
; EXECUTED AT THE END OF EACH PASS (COR SUB-PASS). 
; USE TO RETURN DEVICE UNDER Test TO A NEUTRAL STATE. 
3 = 
BGNCLN 
LSCLEAN:: 
TST OUFLG 3s"OROPPED” FLAG IS SET ON.. 
BMI is -PND GROSS CONTROLLER FAULT. os 
1 OON! T TRY TO XCT CLEANUP CODE. 
MOV CSRADOR .RS 3 ADDRESS OF TSV REGISTERS ON UNIBUS 
MOV #0, TSSRC(RS) 300 SOFT INIT 
a6 JSR PC ,WAITF 
28: ENOCLN 
L10034: 


TRAP CSCLEAN 
gee 


: THE REPORT CODING SECTION CONTAINS T 
:; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gee 


BGNRPT 
LSRPT:: 
PRINTS #@DEVSUM 
MOV @DEVSUM, -( SP) 
MOV #1,-CSP) 
MOV SP RO 
TRAP CSPNTS 
ADD 04, 
MOV R2,-CSP) 
MOV R3,-CSP) 
MOV R4,-CSP) 
MOV @ERTABL .R4 3 GET START OF ERROR TABLE. 
CLR R3 ; CLEAR UNIT NUMBER 
1%: MOV CR4),R2 3; GET ERROR TABLE ENTRY € TEST IT. 
oy rs 3; ZERO IF UNIT NOT RUN 
BIT #6IT14,R2 3 WAS UNIT DROPPED? 
BNE es 3; BR IF YES 
BIC @*C7777,Re 3; GET ERROR COUNT FIELD 
PRINTS #@DEVONL.R3,R2 3: PRINT 
MOV R2.- ) 
MOV R3,-CSP) 
MOV @DEVONL , -( SP) 
MOV @3,-C 
MOV SP ,RO 
TRAP CSPNTS 
BR pat 
2s: CMP R2, 0160000 3 WAS UNIT NON-EXISTENT? 
3$ : BR IF NO 
PRINTS ve 


-(SP) 
MOV @DEVNXR, -C SP) 


SEQ 114 


ECEAN-UP AND REPORT CODING SeCTIO 


023170 012746 000002 
023174 010600 
G25i76 104416 


023200 
3932 023204 000431 
3933 023206 020227 160001 
3934 0235212 001012 
3935 023214 


06 
3936 023236 000414 
3937 023240 042702 170000 
3938 023244 


3946 023312 

023312 

023312 104425 
3947 
3948 
3949 023314 045 116 
3950 023351 045 101 
3951 023421 045 101 
3952 023505 045 101 


LO 
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TRAP CSPNTS 
AOD 6, 
BR ag 
38: CMP R2, 0160001 3 WA 
BNE 30% 3; BR IF NO. 
PRINTS @DEVNRO,RS 
MOV R3, -(SP 
MOV @0E »- CSP) 
MOV #2, -(SP 
SP, 
TRAP CSPNTS 
ADD 6, 
BR 4S 
30%: BIC @tC7777 Re 
PRINTS @DEVDORO,R3S,R2 
Vv Re, -(SP) 
MOV R3, -(SP) 
MOV @DEVORO, -( SP) 
MOV @3,-CSP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD #10,SP 
4$: ADD @2,R4 
INC R3 
CMP R4, OERTABE 
BLO 1% 
MOV CSP )+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
ENORPT 3 UNUSED. 


TRAP CsRPT 


045 DEVSUM: .ASCIZ /SNSADEVICE STATUS SUMMARY: aN 


040 DEVONL: .ASCIZ /#A UNIT SD3SA ONLINE, ERRORS 
040 DEVNXR: .ASCIZ /#A UNIT SD038A DROPPED, NON-EXISTENT REGISTERMN/ 
040 DEVNRD: .ASCIZ /#A UNIT S038A OROPPED, NOT READY AT STARTUPSN/ 
040 DEVORO: .ASCIZ /#A UNIT SD38A DROPPED, ERRORS = sDsN/ 


S_UNIT NOT READY AT STARTUP? 


SEQ 115 


Tee A iAtriAls 


023774 


012737 


012737 


004737 
004737 


012737 


000000 
013727 
000000 


ae 


017054 
024516 
017410 
000002 


024540 
024630 


seaee 
000250 
002116 
177772 
177756 
024276 
020102 


024150 


002146 


002164 


024276 


MACRO M1200 20-APR-84 08:12 PAGE 86 SEQ 116 
-SBTTL TEST 1: INITIALIZE #2 TEST 
3° 
3 
;THIS TEST VERIFIES THAT WRITING INTO THE TSSR RETURNS THE 
sCONTROLLER TO ITS INITIALIZED STATE FROM VARIOUS CONDITIONS 
3 
3-7 
BGNTST n 
CLR FATFLG sCLEAR FATAL ERROR FLAG 
CLR KTFLG sHOLD OFF KT11 
MOV GEPRT1,EPRTSW 3SET UP PRIMARY ERROR MESSAGE 
é 
: 
sTEST 1 —_—~ 
3 
4 
g°¢ 
JSR PC ,OSBINT sDISABLE INTERRUPTS 
MOV #TST21I0,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
MOV @2,LOOPCNT sPERFORM 2 ITERATIONS 
T21L00P: 
JSR PC, T21REST sSET COMMAND PACKET 
JSR PC, T2iRT2 ;SET UP OTHER COMMAND PACKET 
PRCHAAREEREREHKEAERAEEEEAHAAALSRAARAERAREADAREBEBASAEHAKAHRAKRHARKHED 
o 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
FRHAHEREAAAADEAREHAAHEHAHROEAEASHSEAHEAAHSDS BABAAOHAHAEHAAL EAHA AAEDADEE 
MOV #65000. , T21D0LY sSET DELAY ROUTINE 
118: JSR PC ,SOFINIT 300 INITIALIZE ON CONTROLLER 
BCS 20$ ;BR IF INIT WAS OK 
DELAY sDELAY FOR A REWIND TO FINISH 
-WORD O 
MOV LSOLY,CPC)+ 
-WORD O 
DEC -6(PC) 
BNE .-4 
DEC -22¢PC) 
BNE .--20 
DEC T210LY ;BUMP COUNTER DOWN 
BNE 11% ;BR, IF MORE TIME TO GO 
JSR PC ,.FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
MOV 0,R1 sCONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFINSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
.- WORD 101 
. WORD SFIERR 
209 . WORD SF IMSG 
MOV #T21PACKET ,R4 s;SUBROUTINE NEEDS PACKET ADDRESS 


M9 


N9 
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SEQ 117 


S.) Oe iRET IAL Ise #2 TEST 

4034 

4035 { FSAASAAAEALARAAAAAEAAAARAASACASSEDAADESEALESESLELAASESEREREAAAEAEREAES 

4036 Hy 

poet sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

3 

4039 J SSAAAASASAAASASEAALALALASEAAAEASALESADAREESAASEAEEAEASSEAAEKALELREELSE 

4040 

4041 024000 004737 010332 JSR PC, ,WRTCHR sISSUE WRITE CHARACTERISTICS 

4042 024004 103407 BCS 3$ s68R, IF COMMAND ISSUED OK 

4043 024006 004737 020102 JSR PC,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4047 024012 010001 MOV RO,R1 } SAVE CONTENTS OF TSSR 

4048 024014 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
024014 104456 TRAP CSERHROD 
024016 000146 .- WORD 102 
024020 004754 -WORD WRTMSG 
024022 011666 «WORD SFIMSG 

4049 024024 23%: 

4050 024024 012765 000000 MOV #0, TSSRCRS) sISSUE A SOFT INITIALIZE 

4051 024032 004737 017120 JSR PC ,WAITF sWAIT FOR JUST THE SSR BIT TO SET 

4052 024036 016501 MOV TSSR(RS), R1 ;READ THE TSSR BACK 

4053 024042 005002 CLR Re ;SET UP EXPECTED CONTENTS IN R2 

4054 024044 032701 000100 BIT @OFL .R1 ;CHECK FOR OFF LINE SET CNOT ERROR) 

4055 024050 001402 BEQ 24% :3R, IF OFL IS NOT SET 

4056 024052 052702 000100 BIS @OFL ,R2 siT WAS SET SO SET IN EXPECTED 

4057 024056 0527 002200 24%: BIS @SSR!NBA,R2 sRe HAS EXPECTED CONTENTS 

4058 024062 032701 000100 BIT @OFL,R1 3IS OFF LINE BIT SET 

4059 024066 001012 BNE 38$ ;8R, IF ORIVE IS OFF LINE 

4060 024070 020102 35%: CMP R1,R2 sEXPECTED (R2) = RECEIVED (R1) 

4061 024072 001406 BEQ 37% 368R, IF THEY ARE EQUAL _ te 

4062 024074 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4066 024100 ERRHRD ERRNO, T21AM3,EXPREC :"ERROR TRYING TO INIT —s WRITE MISC. 
024100 104456 TRAP CSERHRD 
024102 000147 .- WORD 103 
024104 024375 WORD T21AM3 
024106 016344 -WORD EXPREC 

4067 024110 37%: CKLOOP ;LOOP IF SELECTED 
024110 104406 TRAP CSCLP1 

4068 024112 000406 BR 40$ ;SKIP OVER OFF-LINE STUFF 

4069 024114 38%: 

4073 024114 ERRDOF ERRNO, T210FL,EXPREC sORIVE IS OFF LINE 
024114 104455 TRAP CSEROF 
024116 000150 . WORD 104 
024120 024475 . WORD T210FL 
024122 016344 -WORD EXPREC 

4074 024124 004737 020154 JSR PC ,CKOROP ;TRY AND DROP UNIT 

4075 024130 004737 017356 40%: JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 

4076 024134 103002 BCC 63% ;BR, IF NO LOOP REQUIRED 

4077 024136 000137 023674 JMP T21L00P sEXECUTE AGAIN 

4078 024142 63$: EXIT TST sALL DONE THIS TEST 
024142 104432 TRAP CSEXxIT 
024144 000526 -WORD 1L10036-. 


ZTKF 


K-25 FRT END FUNC 02 
Est at INITIALIZE #2 TEST 


024276 


B10 
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1° 
sLOCAL STORAGE FOR THIS TEST 


-BLKB 


T21PACKET: 


T21DATA; 


T21BFR: 


i 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


3 
T21PKe: 


T216F 2: 


T210LY: . 


BL <w 


10-< ** TUV2AE7> 
100004 

T21DATA 

° 

10. 

T216FR 

0 

20. 


te) 
25. 


10-<, -TUV2AE7> 


100206 
amet 


6. 


ooooo 


sCOMMAND PACKET FOR TEST 
sWRITE yg ees COMMAND, WITH, ACK 


sADORESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


SEQ 118 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sBSELO AREA --- 
s8SEL1 AREA 
3SEL 2 AREA 
sDATA AREA 
sDELAY COUNTER 


“COMMAND ” 


BYTE 


C10 


CZTKFA TK-25 FRT END FUNC @2 MACRO M1200 20-APR-84 08:12 PAGE 86 SEQ 119 
TEST 1: INITIALIZE #2 TEST 

4120 

4121 a° 

4122 sLOCAL TEXT MESSAGES FOR TEST 

aise “i 

4125 127 122 111 T21SSR: .ASCIZ ‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 


T21AM3; .ASCIZ ‘TSSR Init. Failed After WRITE MISCELLANEOUS CONRTOL/READ STATUS’ 


4127 024475 104 162 151 T210FL: .ASCIZ ‘Orive ie OFFLINE’ 
4128 024516 111 156 151 TST21I0: -ASCIZ ‘Initialization @2' 
4129 EVEN 
4131 r 
’ 
4132 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
ta} sWRITE SUBSYSTEM MEMORY COMMAND 
3 

4135 8° 
4136 
4137 024540 T21REST: 
4138 024540 SAVREG SS. THE REGISTERS 
4139 024544 012701 024150 MOV @T21PACKET ,R1 sSTART OF THE PACKET 
4140 024550 012721 100004 MOV #100004 ,(R1)-+ sWRITE SUBSYSTEM MEM. WITH ACK, 
4141 024554 012721 024160 MOV @T21DATA,(R1)> sADORESS OF CHARAISTICS DATA BLOCK 
4142 024560 CLR CR1)> EXTENDED ADORESS 
4143 024562 012721 000010 MOV @8..CR1)-> sSIZE OF DATA BLOCK IN BYTES 
4144 024566 012721 024170 MOV @T21BFR,CR1)> sADORESS OF MESSAGE BUFFER 
4145 024572 CLR CR1)> 
4146 024574 012721 000024 MOV #20. ,CR1)+ sLENGTH OF MESSAGE BUFFER 
4147 024600 005021 CLR CR1)-> 
4148 024602 005011 CLR (R1) 
4149 024604 012702 000020 MOV #20 ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
4150 024610 012762 177777 024170 643: MOV 177777, T21BFRCR2) FALL ONES TO MESSAGE BUFFER 
4151 024616 005742 TsT -(R2) sNEXT LOCATION 
4152 024620 020227 000000 CMP R2,00 sCHECK R2 FOR ZERO 
4153 024624 001371 64% 368R, IF NOT AT ZERO YET 
4154 024626 RTS PC sRET 
4155 
4156 
4157 024630 T21RT2: 
4158 024630 SAVREG sSAVE THE REGISTERS 
4159 024634 012701 024260 MOV @T21PK2,R1 sSTART OF THE PACKET 
4160 024640 012721 100206 MOV #100206,(R1)>+ sWRITE SUBSYSTEM MEM. WITH ACK, IE 
4161 012721 024270 MOV @T21BF2,(R1)> sADDRESS OF DATA BLOCK 
4162 024650 CLR (R1)-> sEXTENDED ADDRESS 
4163 024652 012721 000006 MOV @6..(R1)> sSIZE OF DATA BLOCK IN BYTES 
4164 024656 CLR CR1)-> 
4165 024660 012701 024270 MOV @T218F2,R1 sADDRESS OF DATA FOR WRT SUB SYS MEM 
4166 024664 005021 CLR (R1)> 
4167 024666 005011 CLR (Ri) 
4168 024670 000207 RTS PC sRE TURN 
4169 024672 ENOTST 

024672 L10036: 

024672 104401 TRAP CsETST 


D10 


PELE A 2 ToeP FE Bhe END HBS FF rewtih®? M1200 20-APR-84 08:12 PAGE 89 SEQ 120 
ats -SBTTL TEST 2: OFF-LINE AND REJECT REWIND 
." 
4173 
4174 I THIS TEST VERIFIES BASIC TAPE-MOTION COMMAND DECODING AND BASIC 
4175 sOPERATION OF THE REWIND POSITIONING COMMAND. IT DOES NOT 
4176 sNECESSARILY DEMONSTRATE THAT THE TRANSPORT CAN BE REWOUND F 
4177 sARBITRARY POSITION ON THE TAPE. SUBSEQUENT TESTS IMPLICITLY 
4178 sCHECK THE OPERATION OF THE REWIND COMMAND SINCE THEY MUST 
4179 a oaats REWIND THE TAPE IN THE NORMAL COURSE OF THEIR TEST 
rte SEQUENCES. THE TEST CONSISTS OF THE FOLLOWING ONE SUBTEST 
181 : 
4182 Fy 
4183 s- 
4184 024674 BGNTST 
024674 T2:: 
4185 024674 005037 002170 CLR FATFLG sCLEAR FATAL ERROR FLAG 
4186 024700 005037 003100 CLR KTFLG sHOLD OFF KT1I1 
4187 024704 012737 005762 002146 MOV @EPRT1,EPRTSwW sSET UP PRIMARY ERROR MESSAGE 
4192 024712 004737 017054 JSR PC ,OSBINT sOISABLE INTERRUPTS 
4193 024716 012700 026032 MOV @TST22I0,RO sASCII MESSAGE TO IDENTIFY TEST 
4194 024722 004737 017410 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
rte 024726 012737 000002 002164 MOV @2,LOOPCNT sPERFORM 2 ITERATIONS 
3° 
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ST 2: OFF-LINE AND REJECT REWIND 
4199 024734 T22L00P : 
4200 3° 
4201 3 
pre sTEST 2, SUBTEST 1 
e 
6204 sVERIFIES THAT A REWIND COMMAND WITH CvC*l CLEARS vCK 
Pros sAND RETURNS PROPER STATUS IN THE MESSAGE BUFFER. 
3 
4207 3 
4208 _ 
4209 024734 BGNSUB g>>>>>>>>>>2>> BEGIN SUBTEST >»>>>>>>>>>>> 
024734 T2.1: 
024734 104402 TRAP Cs8SuUs8 
4210 024736 004737 026066 JSR PC, T22REST 3SET COMMAND PACKET 
asi 024742 004737 026160 JSR PC, T22RT]S sSET UP OTHER COMMAND PACKET 
4213 I SOSOSASSHHEASSEAASEESEOEEEOEEEEEEEEEEEEEEOEEOEHEEEEEOEOEOEEEEREEEE 
4214 3 
oak sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
a 
4217 3 90000060006060006060666 6666606606 66664600000606666060606066000000066066 
4218 
4219 024746 004737 016644 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
4220 024752 103407 bcs 208% s6R IF INIT WAS OK 
4221 024754 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4225 024760 010001 MOV RO,R1 iCONTENTS OF TSSR REGISTER 
4226 024762 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
024762 104455 TRAP CSERDF 
024764 000311 -WORD 201 
024766 003550 . WORD SFIERR 
024770 011666 . WORD SF IMSG 
4227 024772 208: 
ane 024772 012704 025200 MOV @T22PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
anne $9 606660660606660606046066066606606606868606606060606060006060000006000008 
3 
rts sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
é 
ted 3 9006604660660066006006006660606660666000060660606600060000000000000008 
4236 024776 004737 010332 JSR PC ,WRTCHR sISSUE WRITE CHARACTERISTICS 
4237 025002 103407 ecs 65% 38R, IF COMMAND ISSUE 
4238 025064 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4242 025010 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
4243 025012 ERRHRD ERRNO,WRIMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
025012 104456 TRAP CSERHRD 
025014 000312 -WORD 202 
025016 004754 .~ WORD WRTMSG 
025020 011666 . WORD SF IMSG 
4244 025022 012737 142010 025310 65%: MOV #142010, T22PK2 sPOSITION COMMAND (REWIND MODE) CvC=1 
4245 025030 012704 025310 MOV @T22PK2.R4 3R4 = POINTER TO PACKET 
4246 025034 010465 177776 MOV R4,TSOBCRS) sISSUE COMMAND 
4247 025040 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4248 025044 016501 000000 MOV TSSR(RS), R1 3GET TSSR CONTENTS 
4249 025050 012702 000200 MOV @SSR ,R2 3SET UP EXPECTED 
4250 025054 020102 CMP R1,R2 3ARE T 


HEY EQUAL 
4251 025056 001406 BEQ 80% sBR, IF OK ESP. FUNCTION REJECT 


CZTKFA TK-25 FRT END FUNC 62 
TEST 2: OFF-LINE AND REJECT REWIND 


004737 


020102 


002170 
020154 
017356 
024734 
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000031 


1638: 


JSR 
ERRHRD 


PC .FATCHK 
ERRNO, T22RWJ, EXPREC 


@T22BFR,RS 
XSTOCR3),R1 

R1,R2 

@BIT4,R2 

R1,R2 

90% 

PC .FATCHK 

ERRNO, T22VCK ,EXPREC 


FATFLG,@25. 
9998 

PC ,CKDROP 
PC, TSTLOOP 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER ae paler CMD 


CSERHROD 
«WORD 203 
«WORD T22RWJ 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sPOINTER TO MESSAGE BUFFER 
sPICK UP XSTO FROM MESSAGE BUFFER 


GOOD ) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sVCK WASN’T CLEAR (BAD) 


TRAP CSERHROD 
-WORD 204 
~ WORD T2evcK 
-WORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L1 $ 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
36R, IF LESS THAN 25 
sTRY TO OROP THE UNIT 
3:00 WE NEED TO ITERATE TEST 
368R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 
sALL DONE THIS TEST 
TRAP CSsExIT 
-WORD L10037- 


CZTKFA TK-25 FRT END FUNC @2 
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TEST 2: OFF-LINE AND REJECT REWIND 


3¢ 
sLOCAL STORAGE FOR THIS TEST 


3 — 
BL! 
T22PACKET: 


T22DATA: 


T228FR: .BLKW 


: 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 


é 
T22PK2: 


T2283: 
é 


-EVEN 
sTAPE MOTION PACK 


T22R0: . 


10-<, - TUV2AE7> 


100204 
—_— 


10. 
T22BFR 
te) 

20. 

0 


7 
2s. 


10-<, -TUV2AE7> 


100206 
T228F 2 


0 
6. 


oooo 


10020 

100205 
100210 
100211 
177777 


ET rate VALUES 


SEQ 123 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE 7 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sDATA AREA 


sREAD TAPE FORWARD 
sWRITE TAPE FORWARD 
sPOSITION TAPE 
sFORMAT TAPE 

sEND OF DATA 


CZTKFA TK-25 FRT END FUNC @2 
TEST 2: OFF-LINE AND REJECT REWIND 


012701 
012721 
012721 
005021 


012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 


005011 
000207 


104401 


000007 
000020 
177777 
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025222 64%: MOV 


3° 
sLOCAL TEXT MESSAGES FOR TEST 
3= 


T22SSR: 


-ASCIZ 
TST 220: -ASCIZ 
EVE 


3¢ 


‘WRITE MISCELLANEOUS CONTROL/READ STATUS Command Not Accepted’ 
‘TSSR Init. Feiled After WRITE MISCELLANEOUS CONRTOL/READ> STATUS’ 
‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
‘TSSR Incorrect After T 
‘TSSR Not Correct After 
‘CvC Set, Didn''t Reset VCK In Message otter 
‘OF F-Line And Reject Rewind’ 


Motion Command be Off-Line Device’ 


—_ With VCK Se 


: 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
: 
3 = 


T22REST: 
SAVREG 
MOV @T22PACKET ,R1 
MOV #100204 ,(R1)> 
MOV @T22DATA,(R1)> 
CLR CR1)> 
MOV #10. ,CR1)-+ 
MOV @T22BFR,CR1)> 
CLR CR1)> 
MOV 920. (RL)» 
CLR CR1)o 
MOV #7,(R1) 
MOV 020, Re 

@177777, T22BFR(R2) 

TST -(R2) 
CMP R2,00 
BNE 643 
RTS PC 

T22RT2: 
SAVREG 
MOV eT22PK2,R1 
MOV #100206,(R1)>+ 
MOV @T22BF2,(R1)+ 
CLR CR1)> 
MOV 06. eC(R1L)> 
CLR 1)> 
MOV @T22BF2,R1 
CLR (R1)-> 
CLR (R1) 
CLR CR1) 
RTS PC 
ENOTST 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
sADORESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE SEVEN 
sNUMBER OF LOCATIONS TO BE © ete 
sALL oe TO MESSAGE BUFFE 


sBUMP R2 DOWN 

iIS R2 AT ZERO YET . 
sKEEP GOING UNTIL DONE 

sRE TURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK, IE 
sADORESS OF DATA BLOCK 

;EXTENDED ADORE SS 

sSIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 
sLAST LOC TO BE CLEARED 
sRE TURN 


a 110037: 
TRAP 


SEQ 124 


CsE'st 


ZTKFA_TK-25 FRT END FUNC 02 


EST 3: BASIC WRITE 


012737 


005762 002146 
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-SBTTL TEST 3: BASIC WRITE 


* 


i THIS TEST VERIFIES THAT THE WRITE DATA (NEXT) COMMAND OPERATES 
sPROPERLY, TO THE POINT OF CHECKING THAT THE DATA WAS ACTUALLY 
iWRITTEN ONTO THE TAPE CORRECTLY. CHECKING IN THIS TEST Ts 
sLIMITED TO VERIFYING THAT THE COMMAND TERMINATED CORRECTLY WITH 
_ CORRECT REGISTER, MESSAGE BUFFER AND RAM CONTENTS. 


1 THE TEST CONSISTS OF THE FOLLOWING 5S SUBTESTS 
: 

é 

3 

3° 


BGNTST r 
$3 
CLR FATFLG sCLEAR FATAL ERROR FLAG 
CLR KTFLG sHOLD OFF KT11 
MOV #€PRT1 .EPRTSW sSET UP PRIMARY ERROR MESSAGE 
CLR K TENABLE sTURN OFF KT11 
JSR PC .KTOFF sTURN OFF KT11 
JSR PC .OSBINT sOISABLE INTERRUPTS 
MOV @TST23ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP s00 INITIAL TEST SETUP 


MOV #1,LOOPCNT ; PERFORM 1 ITERATIONS 


SEQ 125 


J10 
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TEST 3: BASIC WRITE 
4414 026276 T23L00P : 
4415 3° 
4416 3 ; 
roid — 3, SUBTEST 1 
4419 i VERIFIES THAT WRITE DATA COMMANDS WITH CvC*1 AND THE 
4420 sSWAP BYTES (SWB) BIT CLEAR OPERATES PROPERLY. THE 
4421 sBYTE COUNT (RECORD SIZE) VARIES FROM 20 THROUGH 64K 
MBO0 sIN VARYING INCREMENTS (DEPENDING UPON WHETHER OR NOT 
4423 3s THE DIAGNOSTIC IS RUNNING IN THE LONG VERIFICATION 
4424 ;MODE ). THE TAPE IS NOT REWOUND BETWEEN SUCCESSIVE 
4425 sRECORDS BUT IS REWOUND AFTER THE FINAL RECORD IS 
4426 sWRITTEN. AN INCREMENTING COUNT PATTERN IS SUPPLIED 
4427 3sIN THE DATA BUFFER. AFTER EACH BLOCK IS gts oy THE 
eae sTSSR AND TSBA REGISTERS, AND THE MESSAGE BUFFER 
a 
4430 Hy 
4431 ; 
4432 es 
4433 026276 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
026276 T3.1: 
026276 104402 TRAP Cs8SuUB 
4434 026300 013701 003074 MOV FRESIZ,R1 sGET SIZE OF AVAILIABLE MEMORY 
4435 026304 000241 CLC sCLEAR THE CARRY BIT 
4436 026306 006101 ROL R1 sMAKE INTO BYTES 
4437 026310 010137 030520 HOV PR), T23RSZ sSTORE IN TEST FOR USE LATER 
4438 026314 004737 031776 JSR F_,T23REST sSET COMMAND PACKET 
4439 026320 004737 032132 JSR PC, T23RT3 sRESTORE PACKET 
Seek 026324 004737 032070 JSR PC, T23RT2]) sSET UP OTHER COMMAND PACKET 
east 3 9O00606006600666606000006666066000666660606060066660606060000006000000086 
iH 
nest sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
roe: $98O20000666606060068600666666066066660606860000006606060000000000000008 
4448 026330 004737 016644 JSR PC, SOF INIT 300 INITIALIZE 7 CONTROLLER 
4449 026334 103407 Bcs 20% BR 1 INIT WAS OK 
4450 026336 004737 020102 JSR PC .FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
4454 026342 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
4455 026344 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
026344 104455 TRAP CSEROF 
026346 000455 «WORD 301 
026350 003550 -WORD SFIERR 
026352 011666 -WORD SFIMSG 
4456 026354 20%: 
cone 026354 012704 030360 MOV @T23PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
ret § 9606 6666068600606666666666046680600666466060600006064646000000006000000008 
é 
eet! sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
aoe §9O456666600606066066660466464666664006066064604606406600600006060000000000000008 
4465 026360 004737 010332 JSR PC ,WRTCHR s ISSUE WRITE CHARACTERISTICS 


4466 026364 103407 Bcs 23% sBR, IF COMMAND ISSUED OK 
4467 026366 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


K10 
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TEST 3: BASIC WRITE 

4471 026372 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4472 026374 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
026374 104456 TRAP CSERHROD 
026376 000456 WORD 302 
026400 004754 .40RD WRTMSG 
026402 011666 -WORD SFIMSG 

4473 026404 23%: CKLOOP sLOOP IF SELECTED 

eave 026404 104406 TRAP CsCLP1 

4475 s PPAAESRAAESEAESEEESEREEEEAEADEAEEEDEADDEEEEDDAEDEEDAEDEEREDERDEEEE 

4476 ; 

eave s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 

; 

4479 § PPREREREAAESEEDASAAEOESESEEASEEEDASEADEDEEASEEEESEEEEDEEEEEEDEEDES 

4480 

4481 026406 004737 010434 JSR PC ,REWIND sCALL THE TAPE REWIND 

4482 026412 012703 000024 MOV #20. ,R3 sSTARTING RECORD SIZE 

saat 026416 013737 003072 030512 65%: MOV FREE , T23WB sSTARTING WRITE BUFFER ADDRESS 

4485 J POPAAEREAESAEESERESEAAEEARESEAEDDEEEEEEEEDDDEEDEEEEEDEEEEDDEEEEED 

4486 3 

pop sWRITE DATA,CVC=1,ACK COMMAND 

‘ 

4489 Prrrrrrrrrrrrrrr rrr rrr rrr 

4490 

4491 026424 012737 140005 030510 MOV #140005 , T23PK3 sWRITE DATA,CVC=1,ACK COMMAND 

4492 026432 012704 030510 MOV @T23PK3,R4 sSET UP R4 WITH PACKET ADDRESS 

4493 026436 010300 MOV R3,RO sSET PATTERN IN CORRECT REGISTER 

4494 026440 004737 020374 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 

4495 026444 010337 030516 MOV R3,T23SZ sSET UP RECORD SIZE IN PACKET 

4496 026450 010465 177776 MOV R4, TSDOBCRS) s ISSUE COMMAND 

4497 026454 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 

4498 026460 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 

4499 026464 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 

4500 026470 020102 CMP R1,R2 sARE THEY EQUAL 

4501 026472 001406 BEQ 80$ sBR, IF OK 

4502 026474 004737 020102 JSR PC ,.FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 

4507 026500 ERRHRD ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
026500 104456 TRAP CSERHRD 
026502 000457 -WORD 303 
026504 005011 -WORD  WRTERR 
026506 011700 -WORD PKTSSR 

4508 026510 808; CKLOOP sLOOP IF SELECTED 
026510 104406 TRAP CscLP1 

4509 026512 016501 177776 MOV TSBACRS),R1 sGET TSBA CONTENTS 

4510 026516 012702 030510 MOV @T23PK3,R2 sSET UP EXPECTED 

4511 026522 020102 85$: CMP R1,R2 sARE THEY EQUAL 

4512 026524 001406 BEQ 90% 3B8R, IF TSBA IS CORRECT 

4513 026526 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

4517 026532 ERRHRD ERRNO, T23BA,EXPREC sTSBA WAS NOT CORRECT AFTER WRITE DATA 
026532 104456 TRAP CSERHRD 
026534 000460 -WORD 304 
026536 031620 -WORD T23BA 
026540 016344 -WORD  EXPREC 

4518 026542 90%; CKLOOP sLOOP IF SELECTED 
026542 104406 TRAP CsCLP1 


4519 026544 062703 001750 115%: ADD #1000. ,R3 sNEXT RECORD SIZE/DATA PATTERN 


Geryra TK- 


ST 3: 


eu atte FUNC #2 


030520 
177776 
026416 
032132 


032070 
010434 


020102 


002170 
020154 
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000031 


1208: 


1308: 


9998: 


R3, T23RSZ 
120% 

R3, 065534. 
120% 

65% 


PC, T23RTS 
RO,R1 
PC .FATCHK 


ERRNO, T23RWN,PKTSSR 


FATFLG, 025. 
999% 
PC ,.CKDROP 


SEQ 126 


sIS R3 OVER MAX RECORD SIZE 

sIF RECORD SIZE IS TOO BIG QUIT 
sEND OF SUBTEST MAX RECORD SIZE 
s8R, IF COMPLETED 

100 MORE RECORDS 


sRESTORE PACKET 
sCLEAN UP PACKET 
s ISSUE REWIND COMMAND WITH WAIT 
s8R, IF TSSR IS OK (GOOD) 
:SAVE TSSR CONTENTS 
THAN 25 ERRORS 


sINC AND CHECK FOR MORE 
iTSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
-WORD 305 
-WORD T23RWN 
-WORD  PKTSSR 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
Lil 


0042: 
TRAP CsESUB 
sIS ERROR COUNT AT 25 
38R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
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4545 se 
4544 a 
re ee ;TEST 3, SUBTEST 2 
a 
4547 sVERIFIES THAT WRITE DATA COMMANDS WITH CVC*1 AND THE 
4548 sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
4549 sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
east ;THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
3 
4552 3 
4553 F 
4554 $- 
4555 026642 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
026642 73.2: 
026642 104402 TRAP Cs8SUB 
4556 026644 004737 031776 JSR PC, T23REST sSET COMMAND PACKE 
pied 026650 004737 032070 JSR PC, T23RT2 iSET UP OTHER COMMAND PACKET 
4559 J AMAAAAAAASSHASSSSASASALALASASEARAAEASESSAAEAALESESSAASEADESEESEEEEESD 
4560 a 
oeak sISSVE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
4563 - BOO46060066466680004686080646046446660064646404646660400666066006646046464640006 
4564 
4S€5 026654 004737 016644 JSR PC ,SOFINIT 3:00 INITIALIZE ON CONTROLLER 
4566 026660 103407 BCS 20% 36R IF INIT WAS OK 
4567 026662 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4571 026666 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
4572 026670 ERRDF ERRNO, SFIERR, SF IMSG tFATAL ERROR TSSR WAS NOT OK 
026670 104455 TRAP CSERDOF 
026672 000462 -WORD 306 
026674 003550 -WORD SFIERR 
026676 011666 ‘ -WORD SFIMSG 
4573 026700 20%: 
po a | 026700 012704 030360 MOV @T23PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
pode Peer TTI r rrr rrr rrr rrr rrr errr rrr errr rrr rrr yy) 
Hy 
p- ds 4 sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
hat | seaeeeeesenesenacesecsscassasesassscsssasscasccesscnsone¢sscsscess 
4582 026704 004737 010332 JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
4583 026710 103407 BcS 23% ;B8R, IF COMMAND ISSUED OK 
4584 026712 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4588 026716 010001 MOV RO,R1 ; SAVE CONTENTS OF TSSR 
4589 026720 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
026720 104456 TRAP CSERHRD 
026722 000463 WORD 307 
026724 004754 . WORD WRTMSG 
026726 011666 . WORD SF IMSG 
4590 026730 23%: 
4591 026730 012703 000024 MOV #20. ,R3 sSTARTING RECORD SIZE 
poe | 026734 013737 003072 030512 65%: MOV FREE , T23WB sSTARTING WRITE BUFFEF ADDRESS 
4594 PET UTIL TT i rrr rrr terre rrr rrr ry rrr rere ririvrrrrrrrrrrrrrrive ry 


4595 3 


CZTKFA TK-25 FRT END FUNC 02 
TEST 3: BASIC WRITE 


012737 


177776 
030510 


020102 


032070 
000400 
000001 


012737 


4646 027166 112737 
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sWRITE DATA,CVC#1,ACK,SWB COMMAND 


é 
FERSAASAAEAEEAAAAEAAESASASEEEARELAEARERERSEEDADEREADEDEEEEEDEDEEEEDSD 


030510 MOV #150005, T23PK3 
MOV @T23PK3,R4 
MOV RO 
JSR PC .FILLMEM 
MOV R3,T23SZ 
MOV R4, TSOBCRS) 
JSR »WAITF 
MOV TSSRCRS),R1 
MOV @SSR ,R2 
CMP R1,R2 
BEQ 80$ 
JSR PC ,FATCHK 
ERRHRD ERRNO,WRTERR,PKTSSR 
80$: CKLOOP 
MOV TSBACRS),R1 
MOV @T23PK3,R2 
85$: CMP R1,R2] 
BEQ 90$ 
JSR PC ,FATCHK 
ERRHRD ERRNO, T23BA,EXPREC 
90%: CKLOOP 
CMP R3,07376 
BGE 115$ 
JSR PC, T23RT2 
030524 MOV #256. ,T23S2 
030522 MOVB #0, T238S0 
030523 MOVB @0,T238S1 
MOV @T23PK2,R4 
MOV R4,TSDBCRS) 
JSR PC,CHKTSSR 
BCS 92$ 
MOV RO,R1 
JSR PC ,FATCHK 
ERRHRD ERRNO, T23WSS,PKTSSR 
92$: CKLOOP 
JSR PC, T23RT2 
030524 MOV 0256. , T23S2 
030522 MOVB #1,T238S0 


SEQ 
sWRITE DATA,CVC=1,ACK,SWB C 
sSET UP R4 WITH PACKET ADDRESS 
sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
3SET UP EXPECTED 
sARE THEY EQUAL 
36R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 308 
» WORD WRTERR 
. WORD PKTSSR 
3;LOOP IF SELECTED 
TRAP CSCLP1 
;GET TSBA CONTENTS 
3SET UP EXPECTED 
sARE THEY EQUAL 
;68R, IF TSBA IS CORRECT 
sINC AND CHECK FOR MORE THAN 25 ERRORS 


sTSBA WAS NOT CORRECT AFTER WRITE DATA 
TRAP — 


- WORD 
-WORD  T23BA 
-WORD EXPREC 


;LOOP IF SELECTED 
TRAP CsCLP1 


sONLY CHECK RAM UNTIL ITS FULL 
sIT WRAPS AROUND ETC. 

sMAKE SURE PACKET AND DATA ARE CLEAN 

i STARTING RAM ADDRESS 

STOP oe. TUVOS DIAGNOSTICS 

:SIZE OF RAM RE 

sSET R4 WITH PACKET ADDRESS 

sISSUE WRITE SUB SYS MEM COMMAND 
sCHECK TSSR AND WAIT FOR SSR TO SET 
sBR, IF NO ERRORS IN TSSR 

sSAVE TSSR 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR BAD AFTER WRITE SUB SYS MEM 


TRAP CSERHRD 

-WORD 310 

«WORD T23wWSS 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


sMAKE SURE PACKET AND DATA ARE CLEAN 
sSTARTING RAM ADORESS 
sREAD RAM COMMAND FOR WRITE SUB SYS M. 


130 


ZTKFA_TK-25 FRT END FUNC @2 
EST 3: BASIC WRITE 


4647 027174 


4675 027304 
4676 027312 
4677 027314 
4678 027320 


177776 
026734 
032070 
010434 


020102 


002170 
020154 
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000031 


1158; 


1208: 


1308: 


9998: 


CMP 
JSR 


@2,T238S1 
@T25PK2 ,R4 


65% 


PC, T23RT2 
PC ,REWIND 
130% 


RO,R1 
PC ,.FATCHK 


ERRNO, T23RWN,PKTSSR 


FATFLG,@25. 
999% 
PC ,.CKDROP 


SEQ 151 


sSIZE OF RAM READ 
sSET R4 WITH PACKET ADDRESS 
sISSUE WRITE SUB SYS MEM CMD (READ RAM) 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
iNEXT RECORD SIZE/DATA PATTERN 
sIS R3 OVER MAX RECORD SIZE 

sIF RECORC SIZE IS TOO BIG QuIT 
sEND OF SUBTEST MAX RECORD SIZE 
s6R, IF COMPLETED 

100 MORE REC 

sCLEAN UP PACKET 

s ISSUE REWIND COMMAND WITH WAIT 
s8R, IF TSSR IS OK (GOOD) 

sSAVE TSSR CONTENTS 


sINC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR IS INCORRECT AFTER REWIND 
TRAP CSERHRD 
«WORD 312 
«WORD T23RWN 
.WORD PKTSSR 
g>>>>>>>>>>2>2> END SUBTEST »>>>>>>>>>>>> 
L10043;: 
CsESUB 


TRAP 
sIS ERROR COUNT AT 25 
BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


Cil 
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4680 ae 
4681 Fy 
rors | sTEST 3, SUBTEST 3 
i 
4684 sVERIFIES THAT A WRITE COMMAND WITH AN ILLEGAL MODE 
4685 sFIELO OR AN ILLEGAL BUFFER ADDRESS IS REJECTED WITH 
ous? sTHE PROPER ERROR STATUS AND THAT TAPE DOES NOT MOVE 
u 
4688 3 
4689 a- 
4690 
4691 ys thao BGNSUBS g>>>>>>>>>>>> ee >>>>>>>>>>>> 
027320 104402 "TRAP ss C$BSUB 
4692 027322 004737 031776 JSR PC, T23REST sSET COMMAND — ET 
4693 027326 004737 032132 JSR PC, T23RTS }RESTORE PACKET 
pete 027332 004737 032070 JSR PC, T23RT2 sSET UP OTHER COMMAND PACKET 
4696 PTI TITIYItiiiiiriiiiiiriiriiiiriititiiiiiiiriifititiyititiyiiTTityTy 
4697 3 
rote sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
4700 , Soenneeonnnnnannennnensensesnnnsneesemaannnnebennnneenensesenneens 
4701 
4702 027336 004737 016644 JSR PC ,SOF INIT 300 INITIALIZE x- CONTROLLER 
4703 027342 103407 bcs 208 36R IF INIT WAS OK 
4704 027344 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4708 027350 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
4709 027352 ERROF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
esr dene "Seo Sts" 
027356 003550 “WORD SFIERR 
027360 011666 . WORD SF IMSG 
4710 027362 208: 
aris 027362 012704 030360 MOV @T23PACKET ,.R4 sSUBROUTINE NEEDS PACKET ADDRESS 
Sria § OOOO 4 600660006000004600660600060006060606060000606060600060000006000060050086 
B 
rtd sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
rth , MeneeeebenedeNnneseneininbenenetemesaeniananneeeeeaaaeenens 
£725 SaTeeS guszsr, ots gatos a5 Metre conaec eggs 
8 e 
4721 027374 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4725 027400 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4726 027402 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
y= dines eet . TRAP te 
027406 004754 “WORD  WRTMSG 
aver 027410 011666 . WORD SF IMSG 
ti. $9606 666006060060600060666666666600000006000606000000000006000000080006 
4729 a 
acne sWRITE DATA, ACK, ILLEGAL BITS 


t] 
4732 8S OOOOOOSOOOOOSSOOSEOOOOEEOE4EOOOOEOEHEESOESHS4O6E4OHHOO4HHOHEEH HEE 


Feet oka rE URGE FUNC #2 


4733 

4734 027412 
4735 027420 
4736 027426 
4737 027434 
4738 027442 
4739 027446 
4740 027452 


012737 
013737 


002170 
020154 


Dil 
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030510 
ie) 


000031 


238: 


9998: 


0104405, T23PK3 
FREE, T2358 


TSSRCRS),R1 
#ssRiSCtOITI 16112, »R2 


a 


PC FATCHK 
ERRNO, T23TM,PKTSSR 


FATFLG,@25. 
999% 
PC .CKDROP 


SEQ 1335 


sWRITE DATA, ACK, ILLEGAL BITS 
1SET UP WRITE BUFFER ADORESS 
sMAKE ADDRESS ODD CILLEGAL ) 
sSET UP BUFFER SIZE 
3R4 = POINTER TO PACKET 
3IS OMMAND 
iWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP —y*- CTED 
sARE THEY EQUAL 
3s6R, IF OK ESP. FUNCTION A ae 3 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER WRITE COMMAND 
TRAP — 
. WORD 315 
. WORD T23TM 
- WORD PKTSSR 
;.00P IF SELECTED 
TRAP CsCLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10044: 
TRAP CsEsus 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


Ell 


TKFA_TK FRT F #2 M ™ -APR - P 
7 9h 3! eaere UR Ete UNC ACRO M1200 20 84 08:12 PAGE 97 SEQ 134 
4757 a¢ 
4758 Fy 
rity sTEST 3, SUBTEST 4 
3 
4761 sVERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
4762 sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
anes 3 THE PROPER ERROR STATUS WITHOUT MOVING TAPE 
3 
4765 3 
4766 3 
4767 s- 
4768 
4769 027526 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
027526 73.4: 
027526 104402 TRAP cs6Sus 
4770 027530 005737 003100 TsTt KTFLG sCHECK FOR KT-11 
eyes 3 BEQ 108 36R, IF NO KT-11 
3 
rbd PF DIALOG PATCH FOR NXM 
F 
4775 027534 000240 NOP REMOVE WHEN NXM IS FIXED 
4776 027536 000137 027776 JMP 90% 1 SKIP THIS west IF KT-1i1 
4777 027542 004737 031776 108: JSR PC, T23REST T COMMAND P _— 
4778 027546 004737 032132 JSR PC, T23RT3 + Re STORE PACKET 
tas 027552 004737 032070 JSR PC, T23RT2 3SET UP OTHER COMMAND PACKET 
bh RE RRR anaes cenadnaeatan tr nate nites 
rts 1 TSSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
rhs , eananeuuedatsarnnneneaisennnehennnianndaeabetebinnebeienneneen 
4787 027556 004737 016644 JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 
4788 027562 103407 6cs 208 36R IF INIT WAS OK 
4789 027564 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4793 027570 0109001 MOV RO,R1 CONTENTS OF TSSR REGISTER 
4794 027572 ERRDF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
027572 104455 TRAP CSEROF 
027574 000474 -WORD 316 
027576 003550 .WORD SFIERR 
027600 011666 -WORD SFIMSG 
4795 027602 208: 
sree 027602 012704 030360 MOV @T23PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
ia 4 $906 60660660066666006006066040006060000060660060600600600060000000086 
F 
roses sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
oes | ne ae TE a Te Ht 
4804 027606 004737 010332 JSR PC,.WRTCHR sISSUE WRITE CHARACTERISTICS 
4805 027612 103407 BCS 23% 38R, IF COMMAND ISSUED OK 
4806 027614 004737 020102 JSR PC ,.FATCHK sINC ANO CHECK FOR MORE THAN 25 ERRORS 
4810 027620 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
4811 027622 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
027622 104456 TRAP CSERWRD 


027624 000475 -WORD 317 


Fil 
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Gey 3: BASIC uAtie 
027626 004754 -WORD WRTMSG 
asi2 027630 011666 «WORD SFIMSG 
4813 § PRASAASHASASERSSAAHOSASSESOSESESSASEESASEEEHESESEEEESESASEEEEDEEEEE 
4814 ; 
rte sWRITE DATA, ACK, CvC*1 
3 
4817 PRMHRHAAHHEAHAARHAALABAHREHEDHHREHHEHDREDARAEAAHRASHEHHEAMEHAHAHAHERALE SHR 
4818 
4819 027632 005037 040726 23%: CLR T240LY sSET EXTENDED ADDRESS BITS TO O 
4820 027636 012737 140005 030510 25%: MOV #140005 , T235PK3 sWRITE DATA, ACK, CvC#1 
4821 027644 012701 160000 MOV #160000,R1 sSTART POSSIBLE NXM ADDRESS 
4822 027650 012702 177776 MOV #177776,R2 sEND POSSIBLE NXM ADDRESS 
4823 027654 004737 017276 JSR PC, XNXM sCALL NXM FINDER ROUTINE 
4824 027660 103402 6csS 768 s8R IF NXM ADDRESS See 
4825 027662 000137 027776 JMP 908 3JMP OVER CAN’ T FIND NXM 
4826 027666 010137 0350512 768: MOV R1, T23WB sSET UP WRITE BUFFER ADDRESS 
4827 027672 013737 040726 030514 MOV T24D0LY , T23WB+2 sHIGH ORDER ADDRESS BITS 
4828 027700 012737 000100 030516 MOV 064. ,T23SZ sSET UP BUFFER SIZE 
4829 027706 012704 030510 MOV @T23PK3 ,R4 sR4 = POINTER TO PACKET 
4830 027712 010465 177776 MOV R4, TSOBCRS) s ISSUE COMMAND 
4831 027716 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 
4832 027722 016501 000000 MOV TSSRCRS),.R sGET TSSR CONTENTS 
4833 027726 012702 104210 MOV OSC INXM! SSAIBITS, R2 sSET UP EXPECTED 
4834 027732 020102 CMP R1,R2 sARE THEY EQUAL 
4835 027734 001417 BEG 808 36R, IF OK ESP. FUNCTION REJECT 
4836 027736 062737 000001 040726 ADD #1, T240LY sLOOK AT NEXT EXTENDED BITS WORTH OF MEM 
4837 027744 022737 000100 040726 CMP #100, T240LY :TOO MUCH MEMORY YET 
4838 027752 001402 BEQ 168% 38R, IF OVER 186 BIT ADDRESS 
4839 027754 000137 027636 JMP 25% sTRY AGAIN (NEXT BUNCH OF MEMORY) 
4840 027760 004737 020102 168%: JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4844 027764 ERRHRD ERRNO, T23TM,PKTSSR sTSSR INCORRECT AFTER — COMMAND 
027764 104456 TRAP CSERHRD 
027766 000476 - WORD 18 
027770 030736 ‘ T23TM 
027772 011700 WORD PKTSSR 
4845 027774 803: CKLOOP ;LOOP IF SELECTED 
027774 104406 TRAP CsCLP1 
4846 027776 90%: 
4847 027776 ENOSUB g>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
027776 Li 3 
027776 104403 TRAP CsESUB 
4848 030000 023727 002170 000031 CMP FATFLG, ¢25. 3IS ERROR COUNT AT 25 
4849 030006 002402 BLT 999% ;BR, IF LESS THAN 25 
4850 030010 004737 020154 JSR PC, CKDROP sTRY TO DROP THE UNIT 


4851 030014 999%; 


Gil 


FA_TK- FRT F r) M 4 - APR - : Pp 
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4853 3° 
4854 3 
oas8 sTEST 3, SUBTEST 5 
: 
4857 sVERIFIES THAT A WRITE DATA COMMAND SPECIFYING A DATA 
4658 sBUFFER STARTING IN EXISTANT MEMORY BUT RUNNING INTO 
4859 os ge Ww MEMORY TERMINATES WITH THE PROPER ERROR 
4860 :STATUS. LARGE ENOUGH RECORD SIZE IS 7 on SUCH 
4861 3 THAT TAPE IS ACTUALLY MOVED AND WRITTEN 
4862 3 
4863 3 
4864 3 
4865 3 
4866 $= 
4867 
4868 030014 BGNSUB g>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
030014 T3.5: 
030014 104402 TRAP cs6Su8 
4869 030016 005737 003100 98: TsT KTFLG ;CHECK FOR KT1I1 
po do 3 BEQ 108% 38R, IF NO KT11 
a 
pe 1 3 OIALOG PATCH FOR NXM 
¢ 
4874 030022 000240 NOP sREMOVE WHEN NXM IS FIXED 
4875 030024 000137 030320 JMP 853 : SKIP THIS TEST 
4876 030030 004737 032132 108: JSR PC, T23RTS i PACKET 
4877 030034 004737 031776 JSR PC, T23REST 3SET COMMAND PACKET 
pe da | 030040 004737 032070 JSR PC, T23RT2 3sSET UP OTHER COMMAND PACKET 
coer §9O00000060060006060606600000606060006060606006006000000000000000000086 
1 3 
re sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
pron [Aeesennssasscnnssansccnccansccnnscssccssccssscsessssscsscasssees 
4886 030044 004737 016644 JSR PC, SOF INIT 300 INITIALIZE "ae CONTROLLER 
4887 030050 103407 ecs 208% 3B8R IF INIT WAS OK 
4888 030052 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4892 030056 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 
4893 030060 ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
030060 104455 TRAP CSEROF 
030062 000477 . WORD 319 
030064 003550 -WORD SFIERR 
030066 011666 -WORD SFIMSG 
4894 030070 208: 
te 030070 012704 030360 ’ MOV @T23PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
ted § 9O000060606006660606060006006006000066000060006000000600000000000000008 
6 
ete sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
panes oT eR Oe TN 
4 
4903 030074 004737 010332 JSR PC, ,WRTICHR s ISSUE WRITE ney haa 
4904 030100 103407 Bcs 23% 38R, IF COMMAND ISSUED OK 
4905 030102 004737 020102 JSR PC .FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 


4909 030106 010001 MUV RO,R1 sSAVE CONTENTS OF TSSR 


Hil 
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725 Mahia) Sean ay : - . —s 
4910 030110 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
030110 104456 TRAP CSERHRD 
030112 000500 «WORD 320 
030114 004754 «WORD WRTMSG 
oni 030116 011666 «WORD SFIMSG 
4912 8 SOSOSSSASAHHASESSESASEHASESEAHESSEASHEESHHEEEEEEEEEEEEEKEEEEEEEEOEEEE 
4915 ’ 
o 
4916 FSSAASSHSSHHSSSSSSSSSSHHSESEAHESESSEOEHHEESSEHASESESHSHEEEEHKEELEDEEEREE 
4917 
4918 030120 012737 000000 030514 23%: MOV 00, T23WB+2 sHIGH ORDER ADDRESS BITS ETC. 
4919 030126 012737 140005 030510 24%: MOV #140005 , T23PK35 sWRITE DATA, ACK,CVC*1 
4920 030134 013701 003076 MOV FREEHI,R1 sHIGHEST ADDRESS 
4921 030140 162701 000100 SUB #100,R1 sSET ADDRESS A LITTLE LOWER 
4922 030144 010137 030512 MOV R1, T23WB sLOAD INTO THE PACKET 
4923 030150 012737 175000 030516 “OV #64000. , T23SZ sSET UP BUFFER SIZE (64K BYTES) 
4924 030156 012704 030510 MOV @T235PK3 ,R4 iRa * POINTER TO PACKET 
4925 030162 010465 177776 mOV R4, TSOBCRS) s ISSUE COMMAND 
4926 030166 004737 017120 JSR PC ,WALTF sWAIT FOR SSR TO SET 
4927 030172 016501 000000 MOV TSSR(RS), R1 sGET TSSR CONTENTS 
4928 030176 012702 104210 MOV @SC!NXM!SSRIBITS, Ro sSET UP EXPECTED 
4929 030202 020102 CMP R1,R2 sARE THEY EQUAL 
4930 030204 001415 BEQ 808 s8R, IF OK ESP. FUNCTION REJECT 
4931 030206 062737 000001 030514 ADD #1, T23WB+2 sSTART CUTTING THE HIGH ADORESS BITS DOWN 
4932 030214 022737 000100 030514 CHP #100, T23WB+2 
4933 030222 001341 BNE 24s sIF NOT AT ZERO, KEEP TRYING 
4934 030224 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4938 030230 ERRHRD ERRNO, T23TMA,PKTSSR sTSSR INCORRECT AFTER WRITE COMMAND 
030230 104456 TRAP CSERHRD 
030232 000501 -WORD 321 
030234 031025 . WORD T23TMA 
030236 011700 -WORD PKTSSR 
4939 030240 80$: CKLOOP sLOOP IF SELECTED 
030240 104406 TRAP CsCLP1 
4940 030242 004737 032070 JSR PC, T23RT2 sCLEAN UP PACKET 
pot 030246 004737 032132 JSR PC, T23RTS sRESTORE PACKET 
pres | $ 29O200686 6666686466 806686866666 068606 066666666606 00666600 660604666606060600864 
3 
rte ; ISSUE A CALL TO REWIND ROUTINE WHICH WILL WAIT QUITE SOME TIME FOR SSR 
3 
4947 8 9060066600608 6066666666608 6666660666006 06060606660666460066000060066008 
ohen 030252 004737 010434 JSR PC ,REWINOD sCALL THE TAPE REWIND 
4950 
4951 
4952 030256 012737 102010 030470 MOV #102010, T23PK2 sREWIND (POSITION) COMMAND 
4953 030264 012704 030470 MOV @T23PK2 ,R4 sLOAD R4 WITH PACKET ADDRESS 
4954 030270 010465 177776 MOV R4, TSOBCRS) sISSUE REWIND COMMAND 
4955 030274 004737 017236 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
4956 030300 103407 BCcS 85% sBR, IF TSSR IS OK (GOOD) 
4957 030302 010001 MOV RO,R1 sSAVE TSSR CONTENTS 
4958 030304 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
4962 030310 ERRHRD ERRNO, T2S5RWN,PKTSSR iTSSR IS INCORRECT AFTER —- 


030310 104456 TRAP CSERHROD 


amar 


FRTE 
SIC wRIT 


000502 
031111 
011700 


FUNC @2 


002170 000031 
020154 
017356 
026276 


999%: 


1638: 


T11 
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FATFLG, #25. 
999% 

PC ,.CKOROP 
PC, TSTLOOP 
1638 
T23L00P 

TST 


g>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
10046: 


TRAP 
sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


s00 WE NEED TO ITERATE TEST 
s6R, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP 
. WORD 


CsESuB 


CsExIT 
L10041-. 


Jil 
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TEST 3: BASIC WRITE 
4977 +° 
pd sLOCAL STORAGE FOR THIS TEST 
3 — 
49861 030354 -BLKB 8 10-<.-TUV2AE7> 
4983 030360 T2SPACKET: sCOMMAND PACKET FOR TEST 
4984 030360 100004 -WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH ACK 
4985 030362 030370 «WORD T23DATA sADDRESS OF CHARACTERISTICS BLOCK 
4986 030364 -WORD O 
4987 030366 000010 «WORD 8. sSTARTING VALUE OF BLOCK SIZE 
4988 030370 T23DATA: sCHARACTERISTICS DATA BLOCK 
4989 030370 030400 -WORD T238FR sADDRESS OF MESSAGE BUFFER 
4990 030372 -WORDB O 
4991 030374 000012 «WORD 10. sLENGTH OF MESSAGE BUFFER 
4992 030376 000000 -WORD O 
pote 030400 T23BFR: .BLKW 25. sMESSAGE BUFFER 
é 
ptt sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
é 
4998 030462 -BLKB 10-<.-TUV2AE7> 
S000 030470 T23PK2: 
5001 030470 100006 . 100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
5002 030472 030522 WORD T238F2 sADDRESS OF SELECT BLOCK DATA 
5003 030474 -WORD O 
5004 030476 000006 -WORD 6. sSIZE OF DATA PACKET 
5007 0 -BLKB 10-<,-TUV2AE7> 
5009 030510 T23PK3: 
5010 030510 100005 WORD 100005 sWRITE COMMAND, AND ACK 
5011 030512 000000 T23wB: .WORD 0 sADDRESS OF WRITE BUFFER 
5012 030514 000000 ° te) 
5013 030516 000000 T2SSZ: . 0 sSIZE OF BUFFER CEXTENT) 
se -EVEN 
° 
ats 030520 000000 T23RSZ: .WORD 0O sLARGEST TAPE RECORD IN BYTES 
é 
5018 
5019 030522 T238F 2: 
5020 030522 010 T238S0: .BYTE 10 sBSELO AREA 
5021 0305235 200 T238S1: .BYTE 200 sBSEL1 AREA 
5022 030524 000000 T23S2: .WORD 0 sSEL 2 AREA 
co 030526 000000 T2383: .WORD 0 sDATA AREA 
é 
5025 : 
5026 EVEN 
a sTAPE MOTION PACKET COMMAND VALUES 
5029 030530 100005 T23WO: .WORD 100005 sWRITE DATA (NEXT) 
5030 030532 100405 T23WOR: .WORD 100405 sWRITE DATA RETRY 
5031 030534 102005 T23CON: .WORD 102005 sWRITE CONTINOUS 
5032 030536 177777 ° 177777 sENO OF DATA 


CZTKFA TK-25 FRT END FUNC @2 
TEST 3: BASIC WRITE 


031761 


5064 031776 


031776 


032122 


012701 


012701 
012721 
012721 
005021 
012721 
012701 
005021 


177777 


000006 
030522 


Ki 
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030400 


3° 
sLOCAL TEXT MESSAGES FOR TEST 
3 - 


SEQ 140 


2000 4k Writes, (Use Shorter Tape)’ 


WRITE Command Reject Due To NXM’ 


WRITE DATA Command, SWB Bit Set’ 
WRITE DATA Command, Check For Tape Offline’ 
Message Buffer’ 


Not Accepted (RAM Read)‘ 


T23SSR: .ASCIZ ‘WRITE Command Not Accepted’ 

T23ET: .ASCIZ ‘EOT Not Found In 1 

T23EOT: .ASCIZ ‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
23TM: .ASCIZ ‘TSSR Not Correct After 

T23TMA: .ASCIZ ‘TSSR Not Correct After WRITE To Non-Existent Memory’ 
T23RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
T23RNC: .ASCIZ ‘RAM Error, Correct Date Pattern Not In Ram’ 
T23AM3: .ASCIZ ‘TSSR Init. Failed After WRITE Command’ 

T230FL: .ASCIZ ‘Drive 7 Select Failed To Set “OFL” In TSSR’ 
T23WOD: .ASCIZ ‘TSSR Not Correct After 

T23WOC: .ASCIZ ‘TSSR Not Correct After 

T23vCK: .ASCIZ ‘CVC Set. Didn’''t Reset VCK In 

T23BA: .ASCIZ ‘TSBA Not Correct After WRITE DATA Poonendl 

T23wSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command 

TST23I0: a -ASCIZ ‘Basic Write’ 


3¢ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


;WRITE SUBSYSTEM MEMORY C 
° 
= 


T23REST: 
SAVREG 
MOV @T23PACKET,R1 
MOV #100004 ,(R1)+ 
MOV @T23DATA,C(R1)> 
CLR CR1)> 
MOV #10. ,CR1I)+ 
MOV @T23BFR,CR1)+ 
CLR CR1)> 
MOV #20. ,CR1)> 
CLR (R1)+ 
MOV #0,(R1) 
MOV 24. ,R2 

64%: MOV 177777 » T23BFRCR2) 
TST -(R2) 
CMP R2,00 
BNE 64$ 
RTS PC 

T23RTe2: 
SAVREG 
MOV @T23PK2,R1 
MOV #100006 ,(R1)>+ 
MOV @T23BF2,(R1)>+ 
CLR CR1)> 
MOV 06.,(R1)> 
MOV @T23BF2,R1 
CLR CR1)+ 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 
sADDRESS OF CHARAISTICS DATA BLOCK 
;EXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT ORIVE ZERO 

sNUMBER OF LOCATIONS TO BE CLEARED 
sALL_ ONES TO MESSAGE BUFFER 

sBUMP DOWN TO NEXT LOCATION 

yR2 AT ZERO YET 

—, GOING UNTIL DONE 

t] 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK 
sADDRESS OF DATA A 
;EXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sPOINT TO DATA SEL AREA 


‘€ 


TKFA_TK - eu latte FUNC #2 


ST 3: 
S093 032124 


5100 032146 
5101 032150 
$102 032152 
S103 032154 
5104 032156 


005021 
005011 
000207 


012701 
012721 


030510 
100005 


MACRO M1200 20-APR-84 08:12 PAGE 100-1 


T23RTS3: 


CLR 
CLR 


Lil 
CR1)+ 
CR1) 
PC 


@T23PK3,R1 
#100005, (R1)-+ 


sRETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 
sWRITE TAPE. WITH ACK 
sADDRESS OF DATA BLOLK 
sEXTENDED ADDRESS 
sSIZE OF yaad BLOCK 

H 


L10041: 
TRAP 


SEQ 141 


CseTsT 


M11 


CZTKFA TK-25 FRT END FUNC 62 MACRO M1200 20-APR-84 08:12 PAGE 102 SEQ 142 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
rt 944 -SBTTL TEST 4: BASIC READ DATA CFORWARD AND REVERSE) 
3¢ 
5109 3 
5110 sTHIS TEST VERIFIES THAT THE READ FORWARD AND READ REVERSE 
S111 sCOMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF ODD AND EVEN 
5112 :DATA BUFFER BOUNDARIES, RECORD SIZES CUP TO 64K BYTES IF MEMORY 
511% sSPACE IS AVAILIABLE), AND BYTE-SWAP CONTROL ARE USED. THIS TEST 
5114 3;0F COURSE, FURTHER VERIFIES THE WRITE DATA COMMAND BY ACTUALLY 
$115 sREADING AND VERIFYING WRITTEN DATA. ALSO TESTED ARE PROPER 
5116 } TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITI : RECORD LENGTH 
$117 3LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, * TLLEGAL DATA 
5118 sBUFFER ADDRESSES, ILLEGAL CODES IN THE MODE FIELD OF THE BASIC 
Sie sREAD COMMAND, AND DATA BUFFERS IN NON-EXISTANT MEMORY. THE TEST 
F 
$121 F 
aie 3;THE TEST CONSISTS OF THE FOLLOWING 12 SUBTESTS 
3 
5124 3 
5125 3 
5126 8° 
5127 032160 BGNTST 
032160 T4:: 
5128 032160 005037 002170 CLR FATFLG ;CLEAR FATAL ERROR FLAG 
$129 032164 005037 003100 CLR KTFLG sHOLD OFF KTi1 
5130 032170 012737 005762 002146 MOV #EPRT1,EPRTSW 3SET UP PRIMARY ERROR MESSAGE 
5131 032176 005037 003102 CLR K TENABLE sTURN OFF KT11 
5132 032202 004737 020246 JSR PC ,KTOFF ; TURN KT11 OFF 
5137 032206 012700 043172 MOV @TST24ID,.RO sASCII MESSAGE TO IDENTIFY TEST 
5138 032212 004737 017410 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
9 032216 012737 000001 002164 MOV #1,LOOPCNT sPERFORM 1 ITERATIONS 


3¢ 
5141 032224 T24L00P : 
é 


Nii 


ZTKFA TK-25 FRT END FUNC @2 MACRO M1200 20-APR-84 08:12 PAGE 103 SEQ 143 
EST 4: BASIC READ DATA (FORWARD AND REVERSE) 
5144 i* 
5145 ; 
sia? sTEST 4, SUBTEST 1 
3 
5148 ;VERIFIES THAT READ FORWARD COMMANDS WITH SWB=0 
5149 sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
5150 ; sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 
5151 sLENGTH AND DATA CONTENT. THE TAPE IS THEN REWOUND 
5152 sAGAIN AND THE RECORD READ SEQUENTIALLY AND RESULTS 
5153 sCSTATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 
5154 sEACH READ FORWARD COMMAND IS SET TO THE LENGTH OF THE 
5155 sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 
5156 sOCCUR. 
5157 ; 
5158 3 
5159 Hy 
5160 3° 
5161 032224 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
032224 T4.1: 
032224 104402 TRAP CsBSUB8 
5162 032226 004737 043374 JSR PC, T24RT3 ;SET UP OTHER COMMAND PACKET 
5163 032232 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 
5164 032236 004737 043332 JSR PC, T24RT2 ;SET UP OTHER COMMAND PACKET 
5165 032242 RFLAGS RO sREAD SUPERVISOR FLAGS 
032242 104421 TRAP CSRFLA 
5166 032244 032700 000100 BIT #BIT6,RO sCHECK FOR THE ILS BIT SET 
5167 032250 001002 BNE 9$ :IF SET SKIP THE PATCH 
5168 032252 000137 032776 JMP 192$ sPATCH IT OUT 
5169 032256 9$: 
eh J FRRSAASAASASASSSASALEAASEASEASEAAASASHALASHEREAREEDEDADEEDEDDEDADERS 
a 
sits ;ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
° 
ts 3 90266606466460662066604004664646004464644664046646604646046404460040464400004646 
5176 032256 004737 016644 JSR PC,SOFINIT 300 INITIALIZE —. CONTROLLER 
5177 032262 103407 6cs 20$ ;BR IF INIT WAS OK 
5178 032264 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5182 032270 010001 MOV RO,R1 iCONTENTS OF TSSR REGISTER 
5183 032272 ERROF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
032272 104455 TRAP CSEROF 
032274 000621 WORD 401 
032276 003550 . WORD SFIERR 
032300 011666 . WORD SF IMSG 
5184 032302 20%: 
oot 032302 012704 040550 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
oe 3 99O66466666660664646464664066604646644666460464660466400600040460000000000000008 
; 
feos sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
Hy 
ates 3 99646466666666646066464066466664640604666646066460646664046400060060004000004 
1 
5193 032306 004737 010332 JSR PC, "inten ; ISSUE WRITE CHARACTERISTICS 
5194 032312 103407 BCS 24% ;B8R, IF COMMAND ISSUEU OK 
5195 032314 004737 020102 JSR PC ,FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 


5199 032320 010001 MOV RO.Ri sSAVE CONTENTS OF TSSR 


B12 
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ST 4: BASIC READ DATA (FORWARD AND REVERSE) 
5200 032322 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
032322 104456 TRAP CSERMRD 
032324 000622 «WORD 402 
032326 004754 -WORD WRTMSG 
032330 011666 ° SF IMSG 
5201 032332 248: CKLOOP sLOOP IF SELECTED 
032332 104406 TRAP CSCLPi1 


S202 

5203 Orr rriiriiiiiiiririiiiitiiiiiiitTy) 
S204 ‘ 
S205 s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
5207 
S208 
S209 


oy 
FS SSSHAOSHSSHHSSSSSEHSEASEHESEOEEESEEEEHOSESESEESEEEEEEEEEESEEEEEEESS 


032334 004737 010434 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
5210 032340 103407 ecs 308 s8R, IF NO PROBLEM 
5211 032342 010001 = RO,R1 sSAVE TSSR 
S2i2 032344 004737 020102 PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5216 032350 tameo ERRNO, T24RWN,PKTSSR }REWIND NOT ACCEPTED 
032350 104456 TRAP CSERMRD 
032352 000623 . WORD 403 
032354 042036 . WORD T24RWN 
032356 011700 .WORD PKTSSR 
5217 032360 308: CKLOOP sLOOP IF SELECTED 
5218 032360 104406 TRAP CSCLPi 
thy FB SSSSHHSSSSHSHSSSSSHSHESSSHSHSHESSHEESSESEESEHSSEHESEEHESSEEEEEEEESEEEES 
20 3 
eset sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
’ 
ety FSSSSSSHSHSSSSSHHSSSHHSSHEHSSSHHESHHSHESSHSHESEEEESSSEHOSEOHSESEEEHEEOEESD 
5225 032362 013701 040576 MOV T24BFR6,R1 sPICK UP xSTO 
5226 032366 010102 MOV R1,R2 3SET UP EXPECTED 
S227 032370 052702 000002 BIS #BIT1,R2 3SET BOT eit IN EXPECTED 
5228 032374 020102 CMP R1,R2 s00ES EXP = REC'D 
5229 032376 001406 BEQ 408 36R, IF EQUAL (OK) 
5230 032400 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5234 032404 ERRHRD ERRNO, T24B0T ,EXPREC s TAPE NOT AT BOT AFTER REWIND 
032404 104456 TRAP CSERMRD 
032406 000624 . WORD 464 
032410 041553 .WORD T24B80T 
032412 016344 . WORD EXPREC 
5235 032414 40%: CKLOOP sLOOP IF SELECTED 
032414 104406 TRAP CSCLPl 
5236 032416 012703 000400 MOV 0256. .R3 sRECORD SIZE 
eh 032422 013737 003072 040702 MOV FREE , T24RB sSTARTING WRITE BUFFER ADORESS 
Bree $ 29OO00 6688668606666 06666066 0066666666 666666686606666060666606660660606606806668 
’ 
ret! sWRITE DATA,CVC*1,ACK COMMAND 
’ 
at $9006 606666 0666666666666666666666866086066606666066606060606680666600060080608 
4 
5245 032430 012737 140005 040700 MOV #140005, T24PK3 sWRITE DATA,CVC*1,ACK COMMAND 
5246 032436 012704 040700 MOV OT24PK3,R4 2:SET UP R4 WITH PACKET ADDRESS 


5247 032442 65%; 


Cle 


FEET As MRE LEMERBPORYRS PBmuanbl“ERB BEGERseGO-APR-84 08:12 PAGE 108-2 se0 145 
5248 032442 010300 MOV R3,RO +54 PATTERN IN CORRECT REGISTER 
5249 032444 004737 020374 JSR PC, FILLMEM FILL MEMORY WITH RECORD SIZE 
$250 032450 010337 040706 MOV R3, T2452 1SET UP RECORD SIZE IN PACKET 
S251 032454 010465 177776 MOV Ra, TSDBCRS) sISSUE COMMAND 
S252 032460 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 
5253 032464 016501 000000 MOV TSSACRS),R1 sGET TSSR CONTENTS 
5254 032470 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
5255 032474 020102 CMP Ri, R2 sARE THEY EQUAL 
S256 032476 001406 BEQ 758% s6R, IF OK 
5257 032500 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5261 sSOFT ERROR, REALLY CHECKING THE 
5262 sREAD COMMAND 
5263 032504 ERRSOFT ERRNO, WRTERR ,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
032504 104457 TRAP CSERSOFT 
032506 000625 - WORD 405 
032510 005011 -WORD WRTERR 
032512 011700 .WORD PKTSSR 
5264 032514 758: CKLOOP ;LO0P IF SELECTED 
032514 104406 TRAP CSCLP1 
5265 032516 005723 TsT CR3)> sBUMP RECORD SIZE 
5266 032520 022703 000414 CMP #268. ,R3 sEND OF RECORD YET 
5267 032524 001346 BNE 658 368R, IF MORE RECORDS TO WRITE 
5268 032526 808: CKLOOP sLOOP IF SELECTED 
032526 104406 TRAP CSCLP1 
aote 032530 1208: 
Fy FSSSOSESSSHSSSOOASHASSESEAESHESEEEOESEEOESESEHEEHEEHEHEHAEEHEHEDEEOEEEE 
2 ’ 
sere s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
’ 
fore 8 9806066866066 6000668606666 8660066066 6066660666686666006060606006066060606866 
S277 032530 012703 000012 MOV #10. .R3 sSPECIAL MULTIPLE REWIND 
5278 032534 004737 010434 125%: JSR PC ,REWIND s ISSUE REWIND COMMAND 
5279 032540 103407 ecs 1308 38R, IF NO PROBLEM 
5280 032542 010001 MOV a eh sSAVE TSSR 
5281 032544 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5285 032550 ERRARD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
032550 104456 TRAP CSERHRD 
032552 000626 ~ WORD 406 
032554 042036 . WORD T24RWN 
032556 011700 . WORD PKTSSR 
5286 032560 1308: CKLOOP :LOOP IF SELECTED 
$287 032560 104406 TRAP CsCLP1 
aeee 8 9OO66606668666666 06066668 06666666860680606680060666068060066662806606066866406066 
’ 
3s sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
’ 
de | 8920606 66666666666606866066666666666666606666606066060666660606066604086806 
5294 032562 013701 040576 MOV T24BFR6,R1 sPICK UP xSTO 
5295 032566 010102 MOV R1,R2 sSET UP EXPECTED 
5296 032570 052702 000002 BIS eBIT1, Re 3SET BOT BIT IN EXPECTED 
5297 032574 020102 CMP R1,R2 3sD0ES EXP = REC'D 
5298 032576 001407 BEQ 1408 sBR, IF EQUAL (OK) 


5299 032600 077323 S08 R3,1258 1300 ANOTHER REWIND BEFORE REPORTING ERROR 


Die 


FEE Aa RSE EREDAR PEr war AND HEGERseF° “APR -84 08:12 PAGE 103-8 


5300 
5304 


032602 
032606 
032606 
032610 
032612 


032772 


004737 
104456 


000627 
0415535 
016344 
104406 


012703 
013737 


012737 


020102 


000400 
003072 


003072 
000400 


020102 


000412 


040702 


SEQ 146 


JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T2480T,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRO 
.WORD 407 
.WORD  T24B0T 
;WORD EXPREC 
140%: CKLOOP sLOOP IF SELECTED 
TRAP =s-—« CSCLP1 
MOV 0256. ,R3 sRECORD SIZE 
MOV FREE, T24R8 sSTARTING READ BUFFER ADORESS 
89S 0004066666680 6068060600660660606066600066606666066066666660606060600686 
. 
sREAD DATA,CVC*1,ACK COMMAND 
; 
8 9O0600006606606068 6666060066666 066066666060660660606060666666606660060600060606 
MOV #140001, T24PK3 sREAD DATA,CVC*1,ACK COMMAND 
165%: MOV @T24PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV R3, 12452 sSET UP RECORD SIZE IN PACKET 
MOV RA. TSDBCRS) sISSUE COMMAND 
JSR “WAIT sWAIT FOR SSR TO SET 
MOV TSSRCRS), R1 sGET TSSR CONTENTS 
MOV @SSR,R2 3SET UP EXPECTED 
CMP R1,R2 3ARE THEY EQUAL 
BEQ 1708 :8R, IF OK 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO,RDERR,PKTSSR iTSSR INCORRECT AFTER READ AQATA 
CSERHRD 
TWORD 408 
“WORD RDERR 
“WORD  PKTSSR 
170%:  CKLOOP ;LOOP IF SELECTED 
TRAP —s-« CSCLP1 
Mov FREE .R2 :GET BUFFER ADORESS 
MOV R3,R4 sCURRENT RECORD SIZE 
SUB 0256. ,R4 sFIRST LOCATION IN BUFFER 
173%: ADD R2,R4 :GET LOCATION IN BUFFER (ADDRESS) 
CMP (R4),R3 sCHECK DATA READ (R3=DATA ALSO) 
BEQ 1808 28R, IF ALL IS WELL 
MOV (R4),R1 ;RECD DATA 
MOV R3,R2 sEXPECTED DATA 
JSR PC. FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T24DTA,EXPREC DATA READ NOT = WRITTEN 
TRAP CSERHRD 
.WORD 409 
“WORD T24DTA 
“wORD EXPREC 
180%:  CKLOOP ;LOOP IF SELECTED 
TRAP =—s-« CSCLP1 
TST (R4)> sBUMP TO NEXT LOCATION 
SUB R2,R4 IGET BACK TO CORRECT SIZE 
CMP R4.R3 sENO OF RECORD YET 
BNE 1738 :BR, IF NOT AT END OF RECORD 
TST (R3)- sBUMP RECORD SIZE 
CMP 0266. ,R3 sEND OF RECORD YET 
BNE 165% 1BR, IF MORE RECORDS TO wRITE 


CZTKFA TK-25 FRT END FUNC 02 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE ) 


5351 


033010 
033014 


104403 
023727 


004737 


002170 000031 
020154 


1908: 
1928; 


999%; 


Ele 
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CKLOOP 
ENOSUB 


CMP FATFLG,@25. 
BLT 9998 
JSR PC .CKDROP 


SEQ 147 


sLOOP IF SELECTED 
TRAP CsCLPi 


$>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 
110050: 
TRAP CsESuUB 
sIS ERROR COUNT AT 25 
s6R, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


Fie 
Fear al eAS1e READ DATA’ CPBRWARD AND REGERSES® APR -84 08:12 PAGE 104 SEQ 148 


5359 ° 
5360 FY 
+44 sTEST 4, SUBTEST 2 
. 
5363 sVERIFIES THAT READ DATA COMMANDS WITH CvC*1 AND THE 
5364 sSWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE TEST 
5365 sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 
soos THE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 
a 
5368 ’ 
5369 3 
5370 g- 
5371 033014 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033014 74.2: 
033014 104402 TRAP Cs6SuB 
5372 033016 004737 043374 JSR PC, T24RTS sSET UP OTHER COMMAND PACKET 
5373 033022 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 
ded 033026 004737 043332 JSR PC, T24RT2 sSET UP OTHER COMMAND PACKET 
5376 §9O00006000060000606060600606060006060000660006066600060000000060000066 
5377 3 
zore sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
5380 _ sanenennsndaaennnebinnnnenienenansennenssensenieennneteneennenes 
5381 
5382 033032 004737 016644 JSR PC ,.SOF INIT 3:00 INITIALIZE ON CONTROLLER 
5383 033036 103407 6cs 208% 36R IF INIT WAS OK 
5384 033040 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5388 033044 010001 MOV RO,R1 S CONTENTS OF TSSR REGISTER 
5389 033046 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
033046 104455 TRAP CSEROF 
033050 000632 -WORD 410 
033052 003550 -WORD SFIERR 
037054 011666 - WORD SF IMSG 
5390 033056 20%: 
sees 033056 012704 040550 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
ty 590000 06060006060000606066060060606000600606000000060000000000000000008 
: 
ate sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
aad | sceaiatiaaipeieeniiiebia aime idtiindi teenenie ennai eneeenemeeninenes 
5399 033062 004737 010332 JSR PC, " Waaneie s ISSUE WRITE Aare Ne mae 
5400 033066 103407 ecs 243 38R., IF COMMAND ISSUED OK 
5401 033070 004737 020102 JSR a F ee sINC AND CHECK FOR MORE THAN 25 ERRORS 
5405 033074 010001 MOV R1 : SAVE CONTENTS OF TSSR 
5406 033076 ERRHRD ERAN. WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
033076 104456 TRAP CSERHMRD 
033100 000633 -WORD 411 
033102 004754 .WORD WRTMSG 
033104 011666 . WORD SF IMSG 
5407 033106 24%: CKLOOP 3LOOP IF SELECTED 
oe 033106 104406 TRAP CSCLP1 
5409 f POOSOEEOEEESEEEOESEAEDEOEEDEOEEEOOOEOOOOO60000000600000060000000008 


5410 3 


CZTKFA TK-25 FRT END FUNC 62 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


033110 


033136 
033142 
033144 
033150 
033152 
033154 


5440 033160 


033160 
033162 
033164 
033166 
033170 
033170 
033172 
033176 


013701 


06 
012703 
013737 


012737 
012704 


000400 
003072 
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040702 


Gle2 


SEQ 149 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 
; 


8 SSAAHSSSESSSADAHSHHESESASESOSESESEASESEOEEEEEEEEEEEEEHEHEEEEEEOEEEEEE 


JSR PC REWIND sCALL_ TAPE REWIND COMMAND 

ecs 30% s6R, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 412 
-WORD T24RWN 
-WORD PKTSSR 

308: CKLOOP sLOOP IF SELECTED 

TRAP CsCLP1 


F SSSHESESSHSSAEAASASSSSSESASSHEEASEASESESESESESOSESAAEEEEEEEASEEDEEEE 


: 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


6 
8 SSSOSHSHSASSSASASSESSASESESEEEEHESSESEEHEASEKEOEHEEEEKEEEEEREEESEE 


MOV T24BFR+6,R1 sPICK UP XxXSTO 

MOV R1,R2 sSET UP EXPECTED 

BIS #BIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sD0ES EXP = REC'D 

BEQ 40% sBR, IF EQUAL (OK) 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

ERRHRD ERRNO, T24B0T ,EXPREC sTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 413 
-WORD T24B0T 
-WORD EXPREC 

408: CKLOOP ;LOOP IF SELECTED 

TRAP CsCLP1 

MOV #256. .,R3 sRECORD SIZE 

MOV FREE , T24R8 sSTARTING WRITE BUFFER ADDRESS 


§9O808 0066066600068 6666006666 8606066666666 060066606006000646064606064668 


;WRITE DATA, ACK,SWB,.CVC=1 COMMAND 


3 
8 92O66666000660666066666866666664606686066666666666060006600660606600606086 


MOV #150005, T24PK3 sWRITE DATA,ACK,SWB.CVC=1 COMMAND 
6s MOV @T24PK3 ,R4 sSET UP R4 WITH PACKET ADDRESS 
$: 
MOV R3,RO sSET PATTERN IN CORRECT REGISTER 
JSR PC,.FILLMEM sFILL MEMORY WITH RECORD SIZE 
MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 
MOV R4,TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAILTF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 3sGET TSSR CONTENTS 
MOV @SSR ,R2 3SET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 758 :BR, IF OK 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 


Hie 
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5467 
5468 
5469 


033372 


013701 
010102 


104406 
012703 
013737 


000414 


010434 


020102 


040576 
000002 


020102 


000400 
003072 040702 


758: 


80$: 
1208: 


ERRSOFT ERRNO,WRTERR ,PKTSSR 


CKLOOP 
TsT 
CMP 


BNE ess 
CKLOOP 


SEQ 150 


y -'7A reed REALLY CHECKING THE 
3 
sTSSR INCORRECT AFTER WRITE DATA 


sLOOP IF SELECTED 


sBUMP RECORD SIZE 
sEND OF RECORD YET 
s8R, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED ne 


J SSSOSHASSHOSESSEASSHESEESASEDESEASESOSESASEEOAEEEEHEESHEEEEEEEEDEE 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


a 
J SSHASHASSHASESSSESSEAASAASSESESEEESEAEESEEEAASEEAEHEEOSAEASEEESEEED 


130%: 


JSR PC REWIND 
ecs 130% 

MOV RO,R1 

JSR PC .FATCHK 


ERRHRD ERRNO, T24RWN,EXPREC 


CKLOOP 


sCALL TAPE REWIND COMMAND 
s6R, IF NO PROBLEM 
sSAVE TSSR 


sINC AND CHECK FOR MORE THAN 25 


sREWIND NOT ACCEPTED 


8 9206666666600606066866666606666666606606866666606066664660604006060066 


; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


3 
$ 2O00086866688060 660660600600 66686666666066000000066006660606660046000008 


1408; 


MOV T24BFR+6,R1 
MOV 1,R2 

BIS @BIT1,R2 
CMP R1,R2 

BEQ 140% 


TCHK 
ERRHRD ERRNO, T24B0T,EXPREC 


CKLOOP 
MOV #256. ,R3 
MOV FREE , T24RB 


TRAP 
sLOOP IF SELECTED 
TRAP 
sPICK UP XxSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
:BR, IF EQUAL (OK) 
sINC ANDO CHECK FOR MORE THAN 25 
; TAPE NOT AT BOT AFTER REWIND 
TRAP 
.WORD 
- WORD 
- WORD 
sLOOP IF SELECTED 
TRAP 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


$9 O006466666666646666066604646466614 6640060666060 6646606404606606060060404000008 


CSERSOFT 
414 
WRTERR 
PKTSSR 


CsCLP1 


CsCLP1 


CsCLP1 


CscLP1 


CZTKFA TK-25 FRT END FUNC 62 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


012737 


110001 
700 


003072 
000400 


020102 


000412 


002170 
020154 


Iie 


MACRO M1200 20-APR-84 08:12 PAGE 104-3 


}READ DATA, IE,ACK,SWB COMMAND 


SEQ 151 


in 
F SHAHAEASAOSASSSOEESSEASAEDESOEAAESEEEEESEEESEEESAOADREESESEEOEEOEEEEEED 


040700 MOV #110001 , T24PK3 
1658: MOV @T24PK3 ,R4 
MOV R3, T2452 
MOV R4, TS0BC RS) 
JSR PC ,WAITF 
MOV TSSRC RS),R1 
MOV @sSsSR, 
CMP R1,R2 
BEQ 1708 
JSR PC .FATCHK 
ERRHRD ERRNO,RDERR,PKTSSR 
1708: CKLOOP 
MOV FREE ,R2 
MOV R3,R4 
SUB 256. ,R4 
1738: ADD R2,R4 
CMP CR4),R3 
BEQ 180% 
MOV (R4),R1 
MOV R3,  # 
JSR PC,.FA 
ERRHRD ERRNO. ToapTA, EXPREC 
1808: CKLOOP 
TST C(R4)> 
SUB R2,R4 
CMP R4,R3 
BNE 1738 
TsT CR3)+ 
CMP #266. ,R3 
165% 
1908: CKLOOP 
ENDSUB 
000031 CMP FATFLG,¢@25. 
BLT 9998 


JSR PC ,CKDROP 
9998: 


sSET UP R4 WITH PACKET ADDRESS 

sSET UP RECORD SIZE IN PACKET 

sISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 

sARE THEY EQUAL 

sBR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 


TRAP CSERHRD 

-WORD 417 

-WORD RDERR 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CsCLP1 


3sGET BUFFER ADDRESS 

sCURRENT RECORD SIZE 

IFIRST LOCATION IN BUFFER 

3sGET LOCATION IN BUFFER CADDRESS) 
sCHECK DATA READ (R3=DATA ALSO) 
sRECD DATA 

sEXPECTED DATA 

sINC AND CHECK FOR MORE 
;DATA READ NOT = WRITTEN 


THAN 25 ERRORS 


TRAP CSERHRD 
-WORD 418 
«WORD T240TA 
EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 
sBUMP TO NEXT LOCATION 
sSET SIZE TO = VALUE 
sEND OF RECORD Y 
36R, IF NOT AT ENO OF RECORD 
;BUMP RECORD SIZE 
sEND OF RECORD YET 
3;B8R, IF MORE RECORDS TO WRITE 
:LOOP IF SELECTED 
TRAP CsCLP1 


3>>>>>>>>>>>> END SUBTEST >»>>>>>>>>>>> 


L10051: 
CsESUB 


TRAP 
sIS ERROR COUNT AT 25 
3BR, IF LESS THAN 25 
sTRY TO OROP THE UNIT 


Jle 


TKFA TK FRT END F MA M -APR-84 08:12 PAGE 105 
ras 4: eaere READ DATA A PB award GND REVERSES” . . a 
5562 s¢ 
5563 3 
pes sTEST 4, SUBTEST 3 
3 
5566 ;VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
5567 sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
5568 sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
5569 3(RLL) BIT SET. 
5570 3 
5571 3 
5572 :- 
5573 
5574 033562 BGNSUBS 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033562 74.3: 
033562 104402 TRAP Cs6SuUB 
5575 033564 004737 043374 JSR PC, T24RTS 3SET UP OTHER COMMAND PACKET 
5576 033570 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 
sete 033574 004737 043332 JSR PC, T24RT2) sSET UP OTHER COMMAND PACKET 
5579 J FSAAAHAASASSSSSAASASADASEAASESASASESASEESESASESSASERESSSEEEAEBASSES 
5580 3 
+4] sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
5583 § 90 O060000066000066060600060666666060600006666600060000666060000000008 
5585 033600 004737 016644 JSR PC. SOFINIT 300 INITIALIZE ON CONTROLLER 
5586 033604 103407 BcS 20% 3;6R IF INIT WAS OK 
5587 033606 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5591 033612 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
5592 033614 ERRDF  ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
033614 104455 TRAP CsEROF 
033616 000643 -WORD 419 
033620 003550 -WORD SFIERR 
033622 011666 .WORD SFIMSG 
5593 033624 20$: 
ited 033624 012704 040550 MOV @T24PACKET ,.R4 sSUBROUTINE NEEDS PACKET ADORESS 
Se | 3 2902406866 8686660664806464666646606646866668866666666664646680468668084608048 
3 
coos sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
or 3 $$24464446604666464464664646404040446444446446464046468464046486446468686486440468646464 
5602 033630 004737 010332 JSR PC ,.WRTCHR sISSUE WRITE ae A yy 
5603 033634 103407 bcs 24% ;68R, IF COMMAND ISSUED OK 
5604 033636 004737 020102 JSR PC .FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
5608 033642 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5609 033644 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
033644 104456 TRAP CSERWRD 
033646 -WORD 420 
033650 004754 .WORD WRTMSG 
033652 011666 WORD SFIMSG 
5610 033654 243: CKLOOP ;LOOP IF SELECTED 
asst 033654 104406 TRAP CSscLP1 
5612 SEPARA ESREAHERABERADAHAHAREHADSEEAHRERAASHEAARHACAHREARRMAAHHHARHABRREBS 


5613 8 


ZTKFA TK-25 


FRT END F 


EST 4: eaerc READ DATA 


5646 033744 


013701 


013737 


012737 
012704 


010337 


010434 


020102 


001000 
003072 


140005 
040700 


040706 
177776 
017120 
000000 


000200 


020102 


040702 


040700 


Kile 
UNC #2 aaitACRO M1200. 20-APR-B4 08:12 PAGE 105-1 


SEQ 153 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


. 
J SHAAAAAAADAEASSASHAAAOEASADEBALEADAAAEAAEAADASASEEASEAADEASEEESESEEEE 


308: 


ERRHRD ERRNO, T24RWN,PKTSSR 


CKLOOP 


PC ,REWIND 
30$ 


RO,R1 
PC ,FATCHK 


sCALL TAPE REWIND COMMAND 
sBR, IF NO PROBLEM 
sSAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;REWIND NOT ACCEPTED 
TRAP CSERHRD 


«WORD 421 
-WORD T24RWN 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


J PRRAAAEAAASASEAEESESEEEEEAAEEREDODEDESADEEAEDAEEEDEEEDDDEDEDEEEEES 
; 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
PRADARAEAHRHAREAAMAARAEAEMEAHAEBAKDREHHERRALHAREAAEEHAHAKHADREHRERAAEARHESD 


40$: 


CKLOOP 


MOV 
MOV 


T24BFR+6,R1 
R1,R2 
#BIT1,R2 
R1,R2 


40$ 


PC .FATCHK 
ERRNO, T24B0T ,EXPREC 


#512. ,R3 
FREE, T24RB 


PICK UP XSTO 

sSET UP EXPECTED 

sSET BOT BIT IN EXPECTED 
sD0ES EXP = REC'D 


INC AND CK FOR MORE THAN 25 ERRORS 
; TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 422 
-WORD  T24B0T 
-WORD EXPREC 


;LQOP IF SELECTED 


TRAP CsCLP1 
sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


PRORABAREAKAORARAREAGASAARAAAREARAEAHRAARHAHRHRHRARAAARABRHARHEBAKARHHDABASASS 


3 
sWRITE DATA,ACK,CVC=1 COMMAND 


é 
EROS AAAREAASHRSEHDARARHHARKHEHARHAADAAHAAREAHHABHORHAHARGASAAHAREKAHRHASD 


65$: 


#140005, T24PK3 


@T24PK3 ,R4 


R3,T24SZ 
R4, TSOBCRS) 
PC ,WAITF 
TSSRCRS),R1 
@SSR ,R2 
R1,Re2 


75$ 
PC .FATCHK 


sWRITE DATA,ACK,CVC=1 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

3sGET TSSR CONTENTS 

;SET UP EXPECTED 

sARE THEY EQUAL 

;BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
3;SOFT ERROR, REALLY CHECKING THE 

:READ DATA COMMAND 


CZTKFA TK-25 FRT END FUNC #2 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 


5670 


034020 


034126 
034134 


104457 
000647 
005011 
011700 


104406 


013701 


104406 
012703 
013737 


012737 
012704 


010434 


020102 


000400 
003072 


140001 
040700 


Lie 


MACRO M1200 20-APR-84 08:12 PAGE 105-2 


040702 


040700 


ERRSOFT ERRNO,WRTERR ,PKTSSR 


TRAP 
*wORD 
75%:  CKLOOP ;LOOP IF SELECTED 
TRAP 
1208: 


SARE RARER E RE DHERAEHAARAERERRAKARAEHEAREARDMARAAHHREARAMAEKREEHRAERRAH 


; 
s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


6 
J SSAASASARSASHSSAAADASAASEDAAAAHASARSASESSESHASASAESEASS?S 644044446464646464 


JSR PC ,REWIND sCALL_ TAPE REWIND COMMAND 
BcS 130$ 3BR, IF NO PROBLEM 
MOV RO,R1 SAVE TSSR 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 
ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED _— 
. WORD 
. WORD 
- WORD 
130$: CKLOOP sLOOP IF SELECTED 
TRAP 


§ PPRAAAEAAEEASESESAAAEEDESEEEDEDEDEEEEEEEEDEEEDEEEDEDEEDDDDESEEDREDEE 
a 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


; 
{SER ERERERAREARARARAHAGAAHARAHARAHKHKASHESRESHHRARADAAHHRAHAHRRHAAAAAABREH 


MOV T24BFR+6,R1 sPICK UP XSTO 

MOV R1,R2 ;SET UP EXPECTED 

BIS @BIT1,R2 sSET BOT BIT IN EXPECTED 

CMP R1,R2 sDOES EXP = REC'D 

BEQ 140% sBR, IF EQUAL (OK) 

JSR PC ,.FATCHK SINC ANO CHECK FOR MORE THAN 25 

ERRHRD ERRNO, T24B0T ,EXPREC 3 TAPE NOT AT BOT AFTER — 
. WORD 
. WORD 

140%: CKLOOP sLOOP IF SELECTED onan 
MOV #256. ,R3 sRECORD SIZE 
MOV FREE, T24RB sSTARTING READ BUFFER ADDRESS 


{PHRASES AESEAEEREDEEAEAEEESEDEEEDSESDEEEEEDEEEEEEAEEEEEDEDEDDDEDE 
6 

sREAD DATA,ACK,CVC=1 COMMAND 

° 

J PAAAAAEEAREDEAEREEREDEDESS EAEDEEDEDEEOOEEEEEE4O0640040000000000488 


MOV #140001, T24PK3 ;READ DATA,ACK,CVC=1 COMMAND 
165$: MOV OT24PK3,R4 ;SET UP R4& WITH PACKET ADDRESS 


SEQ 154 


sTSSR INCORRECT AFTER WRITE DATA 


CSERSOF T 
423 
WRTERR 
PKTSSR 


CSsCLP1 


CsCLPl 


Mie 


ra, ~ ER A -APR - Pp 
Ges BASIC READ DATA cPORWARD AND REVERSES” Pr -O4 08:12 PAGE 105-3 _— see 

5718 034140 010337 040706 MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 

5719 034144 010465 177776 MOV R4,TSDBCRS) s ISSUE COMMAND 

5720 034150 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 

5721 034154 016501 000000 MOV TSSRCRS),R1L sGET TSSR CONTENTS 

5722 034160 012702 100204 MOV @SSR!SC!BIT2, R2 sSET UP EXPECTED 

5723 034164 020102 CMP R1,R2 sARE THEY EQUAL 

5724 034166 001406 BEQ Lye 38R, IF OK 

5725 034170 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5729 034174 ERRHRD ERRNO, T24TRL,PKTSSR sTSSR INCORRECT AFTER READ DATA 
034174 104456 TRAP CSERHRD 
034176 000652 .- WORD 426 
034200 043104 - WORD T24TRL 
034202 011700 ~WORD PKTSSR 

5730 034204 1708: CKLOOP ;LOOP IF SELECTED 

$731 034204 104406 TRAP CSCLP1 

5732 PREPARA MREEAREAHRARAHAGAARDARHREARHKASREAEATHARAAARAMARSEMEKA SR AAHEHHEAKRES 

5733 H 

Lh ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

Hy 

5736 PRRARAKHREEEHRARERAARARAAAHRHEOAREDREMHERAAAREREEALRERHAARDAALAMEHAREHRLA SH 

$737 

5738 034206 013701 040576 MOV T24BFR+6,R1 sGET MESSAGE BUFFER 

5739 034212 010102 MOV R1,R2] ;SET UP EXPECTED 

5740 034214 052702 010000 BIS #BIT12,R2 3SET THE RLL BIT IN EXPECTED 

5741 034220 020102 CMP R1,R2 sARE THEY EQUAL 

5742 034222 001406 BEQ 180$ ;B8R, IF EQUAL CALL IS es 

5743 034224 004737 020102 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 

5747 034230 ERRHRD ERRNO, T24LON,EXPREC ;THE RLL BIT WAS NOT SET IN xSTO 
034230 104456 TRAP CSERHRD 
034232 000653 . WORD 27 
034234 042652 .- WORD T24LON 
034236 016344 WORD EXPREC 

5748 034240 180$: 

5749 034240 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
034240 L100Se: 
034240 104403 TRAP CsEsSuB 

5750 034242 023727 002170 000031 CMP FATFLG, #25. :IS ERROR COUNT AT 25 

5751 034250 002402 BLT 999$ 3;BR, IF LESS THAN 25 

5752 034252 004737 020154 JSP PC ,CKDROP sTRY TO DROP THE UNIT 


5753 034256 999%: 


Nie 


Fa, He R MA -APR- P 
7 3 ahere bef N oa YN. PoawaRe Re REVERSES’ ~ oe —_ soe 
5755 3¢ 
5756 3 
ged ;TEST 4, SUBTEST 4 
q 
5759 ;VERIFIES THAT A READ FORWARD COMMAND READING A RECORD 
5760 sSHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
5761 sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH SHORT 
5762 ;C(RLS) BITS SET. IT IS VERIFIED THAT THE RESIOUAL BYTE 
5763 sCOUNT CRBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
5764 sPROPER NONZERO VALUE (E.G. THE DIFFERENCE BETWEEN 
5765 ;THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
5766 3;LENGTH). 
5767 3 
5768 ; 
5769 H 
5770 i- 
5771 
S772 034256 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
034256 74.4: 
034256 104402 rot CsBSUB 
5773 034260 004737 043374 JSR PC, T24RT3S ;SET UP OTHER COMMAND PACKET 
5774 034264 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 
cete 034270 004737 043332 JSR PC, T24RT2] ;SET UP OTHER COMMAND PACKET 
orte FARAAAEAASAAESAASASARSERASASAALASEAEAAEASAREESARASEEAEARESEEEDEARDLS 
8 : 
the sISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
ares 3 9406460464446444044046044464066464446464644444646440640646464646464440044644040460624066 
5783 034274 004737 016644 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
S784 034300 103407 BcS 20% ;BR IF INIT WAS OK 
5785 034302 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5789 034306 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 
5790 034310 ERROF ERRNO, SFIERR, SF IMSG i FATAL ERROR TSSR WAS NOT OK 
034310 104455 TRAP CSERDF 
034312 000654 . WORD 428 
034314 003550 WORD SFIERR 
034316 011666 . WORD SF IMSG 
5791 034320 20$: 
dae | 034320 012704 040550 MOV @T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
tae §9460666044666666606046406666646466046640600006604406044600600040040000086 
¢ 
ore sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
3 
Bree 5 946060460660466466666046664646464666046464606466460640446646646060066006000062040008 
S800 034324 004737 010332 JSR PC,.WRTCHR sISSVE WRITE CHARACTERISTICS 
5801 034330 103407 bcs 24% ;BR, IF COMMAND ISSUED OK 
S802 034332 004737 020102 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
5806 034336 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
5807 034340 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
034340 104456 TRAP CSERHRD 
034342 000655 -WORD 429 
034344 004754 . WORD WRTMSG 


034346 011666 «WORD SFIMSG 


B13 


CZTKFA TK-25 FRT END FUNC @ MACRO M1200 20-APR-84 08:12 PAGE 106-1 SEQ 157 
TEST 4: BASIC READ DATA CFORMARD AND REVERSE ) 
$8608 034350 24%: CKLOOP sLOOP IF SELECTED 
034350 104406 TRAP CSCLPi1 
5810 $908 00660606606066006066400060666680660666600606606060600066060660606666660666 
5611 t 
Fate | ;4SSUF REWIND COMMAND TO SELECTED TAPE DRIVE 
g 
oe $90 006600 0666060660600 06068680 060866860806 0606060006066668666006066006068 
15 
5816 034352 004737 010434 JSR PC REWIND et ya REWIND 5 ceteris 
5617 034356 103407 6cs 308 NO PROBLEM 
5818 034360 010001 MOV RO,R1 1 SAVE TSSR 
5619 034362 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5823 034366 ERRHRD ERRNO, T24RWN,PKTSSR | REWIND NOT ACCEPTED 
034366 104456 TRAP es 
034370 000656 . WORD 
034372 042036 . WORD Taemee 
034374 011700 WORD PKTSSR 
58624 034376 308: CKLOOP sLOOP IF SELECTED 
034376 104406 TRAP CSCLP1 
5825 034400 012703 000400 MOV 256. ,.R3S sRECORD SIZE 
Boot 034404 013737 003072 040702 MOV FREE , T24R8 sSTARTING WRITE BUFFER ADDRESS 
5828 POAT UT II IIIT IiiriririviiriiririirisyiiiiiiiriririritTiTTYirivrirtttt Y 
a 
oese sWRITE DATA,ACK,CVC*1 COMMAND 
Q 
staf FSSOOSESESHOEEESEOEASEEESESOSOOEEEEEEESEEEEEEEEHEOEHEOESEEEEEOOEOOEEE 
5834 034412 012737 140005 040700 MOV #140005 , T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
5835 034420 012704 040700 MOV @T24PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
5836 034424 65%: 
5837 034424 010337 040706 MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 
5838 034430 010465 177776 MOV R4, Mr aha s ISSUE COMMAND 
5839 034434 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 
5840 034440 016501 000000 MOV TSSR(RS).R1 3sGET TSSR CONTENTS 
5841 034444 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
5842 034450 020102 CMP R1,R2 sARE THEY EQUAL 
58643 034452 001406 BEQ 75% 36R, IF OK 
5844 034454 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5848 3SOFT ERROR, REALLY CHECKING THE 
3849 sREAD DATA COMMAND 
5850 034460 ERRSOFT ERRNO,WRTERR,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
034460 104457 TRAP CsERSOFT 
034462 000657 . WORD 431 
034464 005011 . WORD WRTIERR 
034466 011700 . WORD PKTSSR 
5851 034470 758: CKLOOP sLOOP IF SELECTED 
034470 104406 TRAP CSCLPi 
S852 034472 1208: 
5653 
ieee POT UTI ITI Titi iriririiiriririiirriririitiitiiiitriitiriiiiiTiity Y 
§ 
poe s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
i 
5858 PEVYIVIII IV ITirrivirvirrriiTiiritiitiititiititiiiriiirrrrrrrry tTTiTTty 


te 


C13 


KFA TK-25.FR 7 -APR- , , 
Tag eRere HERD DATA cPORWARD ARO HEGERSES? Cte OE 808-8 6 150 
5860 034472 004737 010434 JSR PC REWIND 1CALL TAPE REWIND COMMAND 
5861 034476 103407 BCS 1308 i6R, IF NO PROBLEM 
5862 034500 010001 MOV RO.R1 SAVE TSSR 
5863 034502 004737 020102 JSR PC FATCHK TING AND CHECK FOR MORE THAN 25 ERRORS 
5867 034506 ERRHRD ERRNO, T24RWN,PKTSSR REWIND NOT ACCEPTED 
034506 104456 TRAP — CSERMRD 
034510 .WORD 432 
034512 042036 "WORD ‘T24RWN 
034514 011700 “WORD PKTSSR 
S868 034516 1308:  CKLOOP }LOOP IF SELECTED 
034516 104406 TRAP CSCLP1 
5869 034520 012703 001000 MOV 512. ,R3 }RECORD SIZE 
5870 034524 013737 003072 040702 MOV FREE, T24R6 STARTING READ BUFFER ADORESS 
5872 FSOHHASHAHSSASSHASSHHSSHHSASEHSHSESOSHESHSHEEHSEHESHEKESEEHSEHEOEEESOEEEEE 
5873 ; 
5874 READ DATA,ACK,CVC*1 COMMAND 
: 
5876 FSSSSSSSHASSSSSSSSSSSSHSEHSHSHAHHHSHSESSEHSEHESHHSEHESHOEEEHSESESEEEEEOEEE 
5877 
5878 034532 012737 140001 040700 MOV ©140001, T24PK3 sREAD DATA, ACK.CVC*1 COMMAND 
5879 034540 012704 040700 165$: MOV eT24PK3_R4 1SET UP R@ WITH PACKET ADORESS 
5880 034544 010337 040706 MOV R3, 12452 1SET UP RECORD SIZE IN PACKET 
5881 034550 010465 177776 MOV R4;TSOB(RS) ;ISSUE COMMAND 
5882 034554 004737 017120 JSR PC WAITF WAIT FOR SSR TO SET 
5883 034560 016501 MOV TSSR(RS).R1 GET TSSR CONTENTS 
5884 034564 012702 100204 HOV @SSR!SC!BIT2,R2 SET UP EXPECTED 
5885 034570 020102 CMP R1,R2 ;ARE THEY EQUAL 
034572 001406 BEQ 1708 :8R, IF 
5887 034574 004737 020102 JSR PC FATCHK :ING AND CHECK FOR MORE THAN 25 ERRORS 
5891 034600 ERRHRD ERRNO, T24TRL,EXPREC ITSSR INCORRECT AFTER READ DATA 
034600 104456 CSERHRD 
034602 000661 MRD S35 
034604 043104 “WORD = T2aTRL 
034606 016344 “WORD  EXPREC 
$892 034610 1708:  CKLOOP }LOOP IF SELECTED 
sags Co610 108806 TRAP CSCLP1 
ators $ FOSOSHSAHSSSSSOSHSSSEHHSOEEEEEEEEEHEEEEOSEHEOEEEAEESEESEEEEHEEHEHEE 
5 
3896 READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 
3 
ited SF SSSSSHSSSASSSHSHHSHSEHESEEESESEHEEEESOHOEEEEOEEOHHAESEHEEEHOEEEHEEEEE 
5900 034612 013701 040576 MOV T24BFR+6,R1 GET MESSAGE BUFFER 
5901 034616 010102 MOV R1,R2 SET UP EXPECTED 
5902 034620 052702 040000 BIS e61T14,R2 SET THE RLS BIT IN EXPECTED 
5903 034624 020102 CMP R1,R2 ARE THEY EQUAL 
5904 034626 001406 BEQ 1808 i8R, IF EQUAL CALL IS WELL) 
5905 034630 004737 020102 JSR PC .FATCHK LINC AND CHECK FOR MORE THAN 25 ERRORS 
5909 034634 ERRHRD ERRNO, T24LOP ,EXPREC ;THE RLL BIT WAS NOT SET IN XSTO 
034634 104456 TRAP CSERHRD 
034636 .WORD 434 
034640 042734 "WORD -T24L0P 
034642 016344 "WORD EXPREC 
5910 034644 1808: 
5911 034644 013701 040574 MOV T24BFR+4,R1 PICK UP RESIDUAL BYTE COUNTER 
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5912 034650 012702 000400 MOV 0256. ,R2 sTHIS SHOULD BE THE DIFFERENCE 
5913 034654 020102 CMP R1,R2 sIS THE DIFFERENCE CORRECT 
5914 034656 001406 BEQ 1908 36R, IF CORRECT 
5915 034660 004737 020102 JSR PC .FATCHK sINC ANO CHECK FOR MORE THAN 25 ERRORS 
5919 034664 ERRHRD ERRNO, T24PBP ,EXPREC ;RBPCR NOT CORRECT 
034664 104456 TRAP CSERHRD 
034666 000663 «WORD 435 
034670 043016 WORD T24PBP 
034672 016344 «WORD EXPREC 
5920 034674 1908: CKLOOP sLOOP IF SELECTED 
034674 104406 TRAP CsCLP1 
5921 034676 ENDSUB g>>>>>>>>>>>> END SUBTEST »>>>>>> >>> >>> 
034676 L10053: 
034676 104403 TRAP CsESuUB 
5922 034700 23727 002170 000031 CMP FATFLG, 25. sIS ERROR COUNT AT 25 
5923 034706 002402 BLT 9998 368R, IF LESS THAN 25 
5924 034710 004737 020154 JSR PC ,CKDROP sTRY TO OROP THE UNIT 


5925 034714 999%: 


fest “ar” 


034714 
034714 
034714 
034716 
034722 
034726 


034762 
034766 


004737 
103407 
004737 
010001 


104455 


000664 
003550 
011666 


012704 


016644 
020102 


040550 


010332 
020102 
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1° 
i TEST 4, SUBTEST 5S 


3 

sVERIFIES THAT READ REVERSE COMMANDS WITH SWB-0 

sOPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
sWRITTEN WITH A SERIES OF TEST RECORDS VARING IN 

sLENGTH AND DATA CONTENT. THE TAPE IS THEN READ IN REVERSE 
sSEQUENTIALLY AND THE RESULTS 

sCSTATUS, DATA, ETC.) VERIFIED. THE BYTE COUNT ON 

EACH READ REVERSE COMMAND IS SET TO THE LENGTH OF THE 
sEXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD 


sO0CCUR. 
3 

: 

3 

5° 


JSR PC, T24RTS 
JSR PC, T24REST 
JSR PC, T24RT2 


$>>>>>>>>>>>> BEGIN SUBTEST > 
74.5 


sai TRAP 
SET UP OTHER COMMAND PACKET 
sSET COMMAND PACKET 
3SET UP OTHER COMMAND PACKET 


F FSHASOHHOSSSAHESSOEHASASASESSSSSASSEEESEASESAAEEEAEEEEEEEEEEEEDEEEEEE 


é 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
F SOSSSOAHOSSSSASSALESOSEAAESEEESHEAEEESESEOEHEEEEEHEEEKEEAEEOHEEEDEES 


JSR PC : SOF INIT 


bcs 20 

JSR PC .FATCHK 

MOV RO,R1 

ERROF ERRNO, SF IERR, SF IMSG 
208: 

MOV @T24PACKET ,R4 


JSR PC,.WRICHR 

Bcs 24% 

JSR PC .FATCHK 
RO,.R 


MOV 0,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


300 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 
sINC AND CHECK FOR MORE 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP 
. WORD 
. WORD 


SEQ 160 


>>> >>> >>>>>D 


Cs6SU8 


THAN 25 ERRORS 


CSEROF 
436 

SFIERR 
SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 


8 926066686640068666960606606066606666066600600600006666666660060606060600066088 


SWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


: 
8 980660606 660860 00666006666 60066066666006860666066060006666606666006664886 


s ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sINC AND CHECK FOR MORE THAN 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC “2 


- WORD 
. WORD 
. WORD 


25 ERRORS 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
5980 035006 248: CKLOOP sLOOP IF SELECTED 
et 035006 104406 TRAP CSCLPi1 
5982 FE SSSSHASHHSSASESHESSESSEADHESEAESOASEAASESEAAEEAEEESESEEEEESEEEEEEOEEEE 
5983 3 
+04 s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
3 
5986 FS SSSAASSHHASASASASSSESASADEEESEAEEESESHEASESEEASEEEEEEEEEEAEEEEHREEEEEED 
5987 
5988 035010 004737 010434 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
5989 035014 103407 6cs 30% 3B8R, IF NO PROBLEM 
5990 035016 010001 MOV RO,R1 sSAVE TSSR 
5991 035020 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
5995 035024 ERRHRD ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
035024 104456 TRAP CSERHRD 
035026 «WORD 438 
035030 042036 . WORD T24RWN 
035032 011700 -WORD PKTSSR 
5996 035034 308: CKLOOP ;LOOP IF SELECTED 
035034 104406 TRAP CSCLP1 
5997 035036 012703 000400 MOV 0256. .R3 sRECORD SIZE 
tte 035042 013737 003072 240702 MOV FREE , T24R8 sSTARTING WRITE BUFFER ADDRESS 
6000 FS SSSSSSSSHSSSAASSHSSSASSEHASEASASHESASEHSSHASEESESEEEESHE 0404006468006 
6001 3 
ye sWRITE DATA,ACK,CVC=1 COMMAND 
3 
6004 892886469 066886666 0680866 6060606666606 04646 666866666 66668606606806064660046 
6005 
035050 012737 140005 040700 MOV #140005 , T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
6007 035056 012704 040700 MOV @T24PK3,R4 3SET UP R4 WITH PACKET ADDRESS 
6008 035062 658: 
6009 035062 010300 MOV R3,RO 3SET PATTERN IN CORRECT REGISTER 
6010 035064 004737 020374 JSR PC .FILLMEM sFILL MEMORY WITH RECORD SIZE 
6011 035070 010337 040706 MOV R3,T24SZ 3SET UP RECORD SIZE IN PACKET 
6012 035074 010465 177776 MOV R4,TSOBCRS) s ISSUE COMMAND 
6013 035100 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 
6014 035104 016501 000000 MOV TSSRCRS),R1 3GET TSSR CONTENTS 
6015 035110 012702 000200 MOV @SSR,R2 sSET UP EXPECTED 
6016 035114 020102 CMP R1,R2 sARE THEY EQUAL 
6017 035116 001406 BEQ 753 3BR, IF OK 
6018 035120 004737 020102 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6022 sSOFT ERROR, REALLY CHECKING THE 
6023 sREAD DATA COMMAND 
6024 035124 ERRSOFT ERRNO,WRTERR,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
035124 104457 TRAP CSERSOFT 
035126 000667 -WORD 439 
035130 005011 -WORD WRTERR 
035132 011700 -WORD PKTSSR 
6025 035134 75%: CKLOOP sLOOP IF SELECTED 
035134 104406 TRAP CsCLP1 
6026 035136 005723 TST (R3)-+ sBUMP RECORD SIZE 
6027 035140 022703 000414 CMP 4268. ,R3 sENO OF RECORD YET 
6028 035144 001346 BNE 65% 38R, IF MORE RECORDS TO WRITE 
6029 035146 808: CKLOOP sLOOP IF SELECTED 
035146 104406 TRAP CsCLPL 
6030 035150 005743 TST -(R3) 3SET BACK TO 512. 
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733 BASIE REND DAYAR’ cPERWARD AND REGERsES? APR-84 08:12 PAGE 107-2 28 me 
ss 035152 013737 003072 040702 MOV FREE, T24RB sSTARTING READ BUFFER ADDRESS 
6033 FPOOOREHREHEEEAEEEEEEEEASEEEEEEOEOOREOEHOEEEEOOONEO444606006460000000086 
6034 3 
cone ;READ REVERSE DATA,ACK COMMAND 
2 
6037 POT UTI III iriiiriiritiiriririiirriiriitiiiiitiititiiiiiTiTiTiTtTtTTyTTiTtTtT 
6038 
6039 035160 012737 100401 040700 MOV #100401, T24PK3 sREAD REVERSE DATA,ACK COMMAND 
6040 035166 012704 040700 1658: MOV A apne d R4 sSET UP R4 WITH PACKET ADDRESS 
6041 035172 010337 040706 MOV R3,T 2452 sSET UP RECORD SIZE IN PACKET 
6042 035176 010465 177776 MOV Ra. TSDBCRS) s ISSUE COMMAND 
6043 035202 004737 017120 JSR PC WAIT sWAIT FOR SSR TO SET 
6044 035206 016501 000000 MOV TSSRCRS), R1 3sGET TSSR CONTENTS 
6045 035212 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
6046 035216 020102 CMP R1,R2 sARE THEY EQUAL 
6047 035220 001406 BEQ 1708 36R, IF OK 
6048 035222 004737 020102 JSR PC ,.FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
6052 035226 ERRHRD ERRNO, T24WO0C ,PKTSSR 3TSSR INCORRECT AFTER READ DATA 
035226 104456 TRAP CSERHRD 
035230 000670 - WORD 440 
035232 042366 -WORD T24WOC 
035234 011700 WORD PKTSSR 
6053 035236 1708: CKLOOP ;LOOP IF SELECTED 
035236 104406 TRAP CsCLP1 
6054 035240 013702 003072 MOV FREE ,R2 3GET a ie ADORESS 
6055 035244 010304 MOV R3,R4 sCURRENT RECORD SIZE 
6056 035246 162704 000400 Sus 0256. .R4 IFIRST LOCATION IN BUFFER 
6057 035252 060204 1738: ADD R2,R4 sSET POINTER TO FRAME (WORD) 
6058 035254 021403 CMP CR4),R3 sCHECK DATA READ (R3=DATA ALSO) 
6059 035256 001410 BEQ 1808 36R, IF ALL IS WELL 
6060 035260 011401 MOV (R4),R1 sRECD DATA 
6061 035262 010302 MOV R3,R2 sEXPECTED DATA 
6062 035264 004737 020102 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
6066 035270 ERRHRD ERRNO, T24DTA,EXPREC sOATA READ NOT = WRITTEN 
035270 104456 TRAP CSERHRD 
035272 000671 . WORD 441 
035274 041620 ; - WORD T240TA 
035276 016344 . WORD EXPREC 
6067 035300 1808: CKLOOP :LOOP IF SELECTED 
035300 104406 TRAP CsCLP1 
6068 035302 005724 TST (R4)> sBUMP TO NEXT LOCATION 
6069 035304 SU8 R2,R4 3GET RIO OF BASE ADDRESS 
6070 035306 020403 CMP R4,R3 sENO OF RECORD YET 
6071 035310 001360 BNE 173% 3:8R, IF NOT AT END OF RECORD 
6072 035312 005743 TST -(R3) sBUMP RECORD SIZE 
6073 035314 022703 000400 CMP 256. .R3 sENO OF RECORD YET 
6074 035320 001322 BNE 165% ;8R, IF MORE RECORDS TO WRITE 
6075 035322 1908: CKLOOP sLOOP IF SELECTED 
035322 104406 TRAP CSCLP1 
6076 035324 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
035324 L10054: 
035324 104403 TRAP CsEsus 
6077 035326 023727 002170 000031 CMP FATFLG, 25. 3IS ERROR COUNT AT 25 
6078 035334 002402 BLT 999% ;8R, IF LESS THAN 25 
6079 035336 004737 020154 JSR PC ,CKDROP sTRY TO OROP THE UNIT 


6080 035342 999%: 


H13 


CZTKFA TK-25 FRT END FUNC 62 MACRO M1200 20-APR-84 08:12 PAGE 108 SEQ 163 
TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 

6082 t¢ 

6083 ; 

— ‘eins 4, SUBTEST 6 

6086 | VERIFIES THAT READ DATA COMMANDOS WITH CvC*1 AND T 

6087 :SWAP BYTES (SWB) BIT SET OPERATES PROPERLY. THE Test 

6088 sSEQUENCE IS IDENTICAL TO THAT USED IN SUBTEST 2. 

soe sTHE RESULTS, EXCEPT FOR RAM CONTENTS, SHOULD BE THE SAME. 

3 

6091 3 

6092 Fy 

6093 :- 

6094 035342 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
035342 74.6: 
035342 104402 ae CsBSU8 

6095 035344 004737 043374 JSR PC, T24RT3 sSET UP OTHER COMMAND PACKET 

6096 035350 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 

rod 035354 004737 043332 JSR PC, T24RT2 iSET UP OTHER COMMAND PACKET 

6099 Perr irr iririrrrirritiittiriiiiiiirriiiitirititiiiiiiit Ti iTTitTiiiTtTiTiTttTy 

6100 3 

tre sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 

6103 , ebebepasteadbendnnsieettenenebbiaenebennenbenesebensbonseasnnnees 

6104 

6105 035360 004737 016644 JSR PC ,SOF INIT 300 INITIALIZE ON CONTROLLER 

6106 035364 103407 BCS 20% 36R IF INIT WAS OK 

6107 035366 004737 020102 JSR PC .FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 

6111 035372 010001 MOV RO,R1 }CONTENTS OF TSSR REGISTER 

6112 035374 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
035374 104455 TRAP CSEROF 
035376 000672 . WORD 442 
035400 003550 - WORD SFIERR 
035402 011666 . WORD SF IMSG 

6113 035404 208%: 

etts 035404 012704 040550 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

tH; §9OO0600660600060660060066006660060006600060600060000000600600606000000048 

° 

atts sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

os  shebanseneaniinbendneaedeeeeebiniNeenetn nadine nines 

6122 035410 004737 010332 JSR PC ,,WRTICHR sISSUE WRITE CHARACTERISTICS 

6123 035414 103407 bcs 24% ;8R, IF COMMAND ISSUED OK 

6124 035416 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6128 035422 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6129 035424 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
035424 104456 TRAP CSERHRD 
035426 000673 - WORD 443 
035430 004754 ‘a WRTMSG 
035432 011666 WORD SF IMSG 

6130 035434 243: CKLOOP sLOOP IF SELECTED 

nee 035434 104406 TRAP CsCLP1 

6132 PPT IT ITI TTT irTitirriiiriiiTiiTiriiiritiirtritriirrvivvrirrrrrrritrTiTTTTtTtT 


6133 3 
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s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


‘ 
FSSSHSOHRAAASASEHASESASEASEEEAADEAESEEESEEEEEKESEEEEEEEEAEEEEEEEOEEESE 


012703 
013737 


012737 
012704 


005743 
013737 


010434 


020102 


000400 


003072 040702 


040700 


000414 


003072 040702 


JSR 
ecs 
MOV 
JSR 
E 


CKLOOP 


MOV 
MOV 


PC ,REWIND 
30% 


RO,R1 
PC ,.FATCHK 
ERRNO, T24RWN,PKTSSR 


0256 ee R3 
FREE , T24RB8 


SEQ 164 


sCALL TAPE REWIND COMMAND 
s8R, IF NO PROBLEM 
sSAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 444 
«WORD T24RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


sRECORD SIZE 
sSTARTING WRITE BUFFER ADDRESS 


F PFSPSASASSHESSSSSSESSOEHASSSSASHASESASEHESESESAEEHEAEAESEEEDASESEEEEEE 


;WRITE DATA,ACK,CVC*1,SW8 COMMAND 


3 
FSSSASAAHESSSASSASASSESASSSAAEESSEASEEASESESEEAEHEEAEOEEEEEEEDEEOEEEE 


653%: 


758: 


#150005 ,, T24PK3 
@T24PK3 ,R4 


TSSR(RS),R1 
@SSR ,R2 
os »R2 

PC .FATCHK 


ERRNO, WRTERR ,PKTSSR 


R3) 
FREE , T24RB 


sWRITE DATA,ACK,CVC=1.SW8 COMMAND 
sSET UP R4 WITH PACKET ADDRESS 


3sSET PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAET FOR SSR TO SET 

;GET TSSR CONTENTS 

3SET UP EXPECTED 

sARE THEY EQUAL 

3;BR, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR, REALLY CHECKING THE 

sREAD DATA COMMAND 

3TSSR INCORRECT AFTER —s DATA 


AP CSERSOFT 
-WORD 445 
-WORD WRTERR 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CsCLP1 
sBUMP RECORD SIZE 
sEND OF RECORD YET 
s8R, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED 
TRAP CsCLP1 


sSET RECORD SIZE BACK TO 512. 
sSTARTING READ BUFFER ADDRESS 


§99246666660666664660640666666666646466604660664660460606664406066006460600046048 


6 
sREAD REVERSE DATA,ACK,SWB COMMAND 


ZTKFA TK-25 cle fe Gn? 


EST 4: 


BASIC RE 


035770 


012737 


110401 040700 
040700 
040706 


177776 
017120 
000000 


000200 


020102 


003072 
000400 


020102 


000400 


002170 000031 
020154 
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SEQ 165 


é 
PF SPAERRADRAEEHAARAAEHAAAREAEG RARER AHREAAEHARAEEARRERHAARARE SEEDS RH 


165$: 


1708: 


1738: 


180$: 


190%: 


999%: 


#110401, T24PK3 


PC FATL:« 


FATFLG, 025. 
999% 
PC,CKDROP 


sREAD REVERSE DATA,ACK,SWB COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 

s ISSUE COMMAND 

sWAIT FOR SSR TO SET 

sGET TSSR CONTENTS 

sSET UP EXPECTED 


sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 


«WORD 446 

«WORD T24wOC 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CsCLP1 


3;GET BUFFER ADDRESS 

sCURRENT RECORD SIZE 

sFIRST LOCATION IN BUFFER 

sSET POINTER TO FRAME (WORD) 
sCHECK DATA READ (R3=DATA ALSO) 
sBR, IF ALL IS WELL 
sRECD DATA 
sEXPECTED DATA 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;0ATA READ NOT = 


WRITTEN 
TRAP CSERHROD 
-WORD 447 
«WORD T24DTA 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


sBUMP TO NEXT LOCATION 
3;GET RID OF — ae 


sBR, IF NOT AT END OF RECORD 
sBUMP RECORD SIZE 
sEND OF RECORD YET 
BR, IF MORE RECORDS TO WRITE 
sLOOP IF SELECTED 
CsCLP1 


TRAP 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10055: 
TRAP CsESUB 
:IS ERROR COUNT AT 25 
38R, IF LESS THAN 25 
sTRY TO OROP THE UNIT 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
6232 se 
6233 3 
rte sTEST 4, SUBTEST 7 
a 
6236 ;VERIFIES THAT A READ REVERSE COMMAND READING A RECORD 
6237 sLONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE 
6238 sSTATUS ALERT TERMINATION WITH THE RECORD LENGTH LONG 
6239 sCRLL) BIT SET. 
6240 F 
6241 3 
6242 3° 
6243 
6244 035770 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >»>>>>>>>>>>> 
035770 74.7: 
035770 104402 TRAP C$BSUB 
6245 035772 004737 043374 JSR PC, T24RTS 3SET UP OTHER COMMAND PACKET 
6246 035776 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 
rod 036002 004737 043332 JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 
6249 FARHAAAAARASHSAAAAAEAESSASALALEAASASASSSEASAESEEHEREASEESEESSOEDEEDED 
6250 F 
pret sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
a 
6253 J PHRAAAAASASSSAAASEEASESSEEASAADASASASEASSAADAALAADESOKESSOSOHEEEEEEEE 
6255 036006 004737 0164544 JSR PC SOF INIT 300 INITIALIZE ON CONTROLLER 
6256 036012 103407 bcs 20% 368R IF INIT WAS OK 
6257 036014 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6261 036020 010001 MOV RO,R1 ; CONTENTS OF TSSR REGISTER 
6262 036022 ERRDOF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
036022 104455 TRAP CSEROF 
036024 000700 WORD 448 
036026 003550 - WORD SFIERR 
036030 011666 - WORD SF IMSG 
6263 036032 20%: 
ee 036072 012704 040550 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
oes fF PHAASASSASSSAAAESESSESAOEORAEEEEEESHEEOEDEAEEOOEEEOEEEEEEEEEEDAEDLE 
3 
ores ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
S 
rr be {PPAASAASHEAASSEESSALESEEASESEODEALEDERAESOOOODDDEEEEDEAEDEDEODEEEDE 
6272 036036 004737 010332 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS 
6273 036042 103407 BcS 24$ 38R, IF COMMAND ISSUED OK 
6274 036044 004737 020102 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
6278 036050 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6279 036052 ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 
036052 104456 TRAP CSERHRD 
036054 000701 -WORD 449 
036056 004754 . WORD WRTMSG 
036060 011666 . WORD SFIMSG 
6280 036062 24%: CKLOOP ;LOOP IF SELECTED 
6201 036062 104406 TRAP CSCLP1 
6282 J PHAEEARAESESSESALALASEESEAESEEEAAEALESEDEODDEDAAEESEESDDDDAEOKELEE 


6283 ; 


A: ere Ic C READ DATA 


104406 
012703 
013737 


012737 
012704 


010337 


012703 
013737 


012737 
012704 
010337 


L135 


RS: acne a -APR-84 08:12 PAGE 109-1 SEQ 167 


010434 
017236 


020102 


001000 
003072 


140005 
040700 


040706 
177776 
017120 
000000 
000200 


020102 


000400 
003072 


040702 


040700 


040702 


040700 


s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 


‘ 
3 FHSAAAREAARESEAAEEAASEDEAESESESERESAEEASEEEAAEEAREEEADDEEEDERER ERE 


JSR PC REWIND sCALL TAPE REWIND COMMAND 

JSR PC ,CHKTSSR sSEE HOW TSSR IS 

BCS 308 s8R, IF NO PROBLEM 

MOV RO,R1 sSAVE TSSR 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T24RWN,PKTSSR ;REWIND NOT ACCEPTED 


TRAP CSERHRD 
-WORD 450 
T24RWN 


- WORD 
-WORD PKTSSR 


308: CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
MOV #512. ,R3 sRECORD SIZE 
MOV FREE, T24RB sSTARTING WRITE BUFFER ADDRESS 


FPASAASSASEAASASSEAASASALSEHADASHEAEEAAAESALASLAREEESEEASASEEEEDAEEDEEDE 


; 
sWRITE DATA,ACK,CVC=1 COMMAND 


6 
i FPRSOASASSESASEASEAASEDEEEEEEEEEEEE4EDOEEOEEOEEOOOEEEEEEEKAEDREKEDASLEEE 


MOV #140005 , T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 


ne MOV @T24PK3 ,R4 3SET UP R4 WITH PACKET ADDRESS 
MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 
MOV R4, TSOBCRS) s ISSUE COMMAND 
JSR PC ,WALTF sWAIT FOR SSR TO SET 
MOV TSSRCRS),R1 sGET TSSR CONTENTS 
MOV @SSR,.R2 sSET UP EXPECTED 
CMP R1,R2 sARE THEY EQUAL 
BEQ 75$ sBR, IF OK 
JSR PC ,.FATCHK sINC_AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR, REALLY CHECKING THE 
sREAD DATA COMMAND 
ERRSOFT ERRNO,WRTERR,PKTSSR iTSSR INCORRECT AFTER ae + DATA 
TRAP + gael T 
-WORD 451 
-WORD WRTERR 
-WORD PKTSSR 
75$; CKLOOP sLOOP IF SELECTED 
TRAP CsCLP1 
MOV #256. ,R3 sSIZE OF RECORD 
MOV FREE, T24R8 sSTARTING READ BUFFER ADDRESS 


$92664664666646604666446664464646440640604660466464604604646046046046464640000008 
$ 

sREAD DATA,ACK COMMAND 

é 

§ 496464666408 64666064604464604646466446466046046060604466046060460644046006080404004 


MOV #100401, T24PK3 sREAD DATA,ACK COMMAND 
165%: MOv @T24PK3 ,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 


Tee a BAS re HERD DATA cPORWARD 


6337 
6338 


036240 
te) 


013701 


177776 
017120 
000000 
100204 


020102 


040576 
010000 


020102 


002170 
020154 


M135 


Acne ht eo -APR-84 08:12 PAGE 109-2 


MOV R4, TSOeCRS) 
JSR PC, WAITF 

MOV TSSRCRS),R1 

MOV @SSR!SC!BIT2,R2 
CMP i, 

BEQ Nyy 3 


JSR PC ,FATCHK 
ERRHRD ERRNO, T24TRL,EXPREC 


170$: CKLOOP 


SEQ 168 


s ISSUE COMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
3SET UP EXPECTED 
sARE THEY EQUAL 

36R, IF OK 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER — ow 


CSERHRD 
-WORD 452 
-WORD T24TRL 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CsCLP1 


{PFAARARSEHOELALARMAAADRARRHAARRARHEAARAERARARERAHRARAAAHHAAKRHAREHERHAR LAMM 


3 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 


é 
PRAARERHEAAARAAMARRORHHARERHAAREHHASARHR HAA AAHAAHEH HASH AAKAKEKSHAMEDRAHAD 


MOV T24BFR+6,R1 
MOV R1,R2 
BIS #B1IT12,Re2 
CMP R1,R2 
BEQ 180$ 
JSR PC ,.FATCHK 
ERRHRD ERRNO, T24L0N,EXPREC 
180$: 
ENDSUB 
000031 CMP FATFLG, #25. 
BLT 9995 
JSR PC ,CKDROP 
999$: 


3¢ 


sGET MESSAGE BUFFER (xXSTO) 
sSET UP EXPECTED 

THE RLL BIT IN EXPECTED 

sARE THEY EQUAL 

IF EQUAL CALL IS WELL) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;THE RLL BIT WAS NOT SET IN XSTO 


TRAP CSERHRD 
-WORD 453 
-WORD T24L0N 
. WORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10056: 
TRAP CsESUB 


3IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 


GELer A_TK- 


ST 4: 


004737 
103407 
004737 
010001 


104456 
000707 


000000 640726 
003100 


037010 
043374 
043240 
043332 


016644 
020102 


040550 


010332 
020102 


N13 


BASIC READ DATA (FORWARD AND REVERSES’ C4 08:12 PAGE 110 SEQ 169 


3 
sTEST 4, SUBTEST 8 


3 

sVERIFIES THAT A READ REVERSE COMMAND SPECIFYING A DATA 
sBUFFER STARTING IN NONEXISTANT MEMORY TERMINATES WITH 
; THE PROPER ERROR STATUS WITHOUT MOVING TAPE 

é 


BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
T4.8: 
TRAP C$BSUB 
MOV #0, T240LY sADDRESS BITS FOR LATER 
9$: TST KTFLG sCHECK FOR KT11 
; BEQ 10$ ;BR, IF NO KT11 
: 
: DIALOG NXM PATCH 
$ 
NOP sREMOVE WHEN NXM IS FIXED 
JMP 180$ ;JUMP IF KT1i1 
10$: JSR PC, T24RTS 3SET UP sue gh ss PACKET 
JSR PC, T24REST 3SET COMMAND PACKET 
JSR PC, T24RT2 sSET UP OTHER COMMAND PACKET 


Per rerrrrr rrr rrr irrrrtrrtt rr ttt iTtr 
; 
s ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
J PAAASSHESAARASAESSAASASEASEASAAEASASASAAABEAEEAEASESEAEAAEREDESDEEEEE 


JSR PC, SOF INIT 3:00 INITIALIZE ON CONTROLLER 

BCS 20% ;8R IF INIT WAS OK 

JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sCONTENTS OF TSSR REGISTER 

ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 


TRAP CSEROF 
-WORD 454 
-WORD SFIERR 
-WORD SFIMSG 
MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

§ AORAOOEAEESEREEESDEEEEEDED44860664600006606666000064606000004400006 

3 

sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


3 
§ 9O86666064666640664666046644646466466 666066448 00604464446404406446440064640464444 


208: 


JSR PC, —- sISSUE WRITE CHARACTERISTICS 

BCS 24% 3BR, IF COMMAND ISSUED OK 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRHRD ERRNO,WRTMSG, SFIMSG sWRITE CHARACTERISTISC FAILED 


TRAP CSERMRD 
-WORD 455 


B14 


TKFA TK-25 FRT END FUNC -APR-84 06:12 PAGE 110-1 SEQ 170 
$ést 4a: easie READ DATA cPemwand ane REVERSES 
036460 004754 -WORD WRTMSG 
036462 011666 ~- WORD SF IMSG 
6429 036464 248; CKLOOP sLOOP IF SELECTED 
6030 036464 104406 TRAP CSCLPi 
6431 FESSSSSSSSSSSSHSSSSESOSSSSHESSOHSHSSHOSHOHEHESESESEEEEESSEEEEEEEEEEESD 
6432 : 
ry +4 s ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
: 
6435 FE SSSSSOSSSHSSSSOSOSSHSSSESASHSHHHESESEHSOSEHESSEEHESEEOEESESEHEEOEEEE 
6436 
6437 936466 004737 010434 JSR PC ,REWIND sCALL TAPE REWIND COMMAND 
6438 036472 004737 017236 JSR PC ,CHKTSSR sSEE HOW TSSR IS 
6439 036476 103407 6cs 308 s6R, IF NO PROBLEM 
6440 036500 010001 MOV RO,R1 sSAVE TSSR 
6441 036502 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6445 036506 ERRHRO ERRNO, T24RWN,PKTSSR sREWIND NOT ACCEPTED 
036506 104456 TRAP CSERHROD 
036510 000710 «WORD 456 
036512 042036 . WORD T24RWN 
036514 011700 .WORD PKTSSR 
6446 036516 308: CKLOOP sLOOP IF SELECTED 
036516 104406 TRAP CSCLP1 
6447 036520 012703 000400 MOV 0256. .RS sRECORD SIZE 
See 036524 013737 003072 040702 MOV FREE , T24R8 sSTARTING WRITE BUFFER ADORESS 
one FSSSSHSSSHESSSSSSHESSSSSSHSHSHSSESESSEEEEESSSHEOEHSHESEESHEEEEEESEEEEEEE 
6451 3 
eens sWRITE DATA,ACK,CvC*1 COMMAND 
3 
eae FSSSASSHSHSSSHSSSSSSSSOSEHSSSEHSHHSESESSEHEEHEEEESEESSSEHESEEEHEEEEEEEE 
64 
6456 036532 012737 140005 040700 MOV #140005 ,, T24PKS sWRITE DATA,ACK,CVC=1 COMMAND 
6457 036540 012704 040700 MOV @T24PK3,R4 2SET UP R4 WITH PACKET ADORESS 
6458 036544 65%: 
6459 036544 010337 040706 MOV R3, T2452 sSET UP RECORD SIZE IN PACKET 
6460 036550 010465 177776 MOV R4,TSOB(RS) s ISSUE COMMAND 
6461 036554 004737 017120 JSR PC ,WAITF sWAIT FOR SSR TO SET 
6462 036560 016501 000000 MOV TSSRCRS),R1 sGET TSSR CONTENTS 
6463 036564 012702 000200 MOV @SSR ,R2 sSET UP EXPECTED 
6464 036570 020102 CMP R1,R2 sARE THEY EQUAL 
6465 036572 001406 BEQ 758 36R, IF Ox 
6466 036574 004737 020102 JSR PC .FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 
6470 036600 ERRSOFT ERRNO, WRTERR,PKTSSR iTSSR INCORRECT AFTER “as DATA 
036600 104457 TRAP coansert 
036602 000711 . WORD 57 
036604 005011 . WORD UaTERA 
036606 011700 .WORD PKTSSR 
6471 036610 758: CKLOOP sLOOP IF SELECTED 
036610 104406 TRAP CSCLPL 
6472 036612 012703 000400 MOV 0256. ,.R5 sRECORD SIZE 
6473 036616 012701 160000 MOV #160000 ,R1 sSTART POSSIBLE NXM ADORESS 
6474 036622 012702 177776 MOV @177776,R2 sEND POSSIBLE NXM ADDRESS 
6475 036626 004737 017276 JSR PC, XNXM sCALL NXM FINDER ROUTINE 
6476 036632 103402 ecs 768% 36R IF NXM ADORESS FOUND 
6477 036634 000137 037010 JMP 1808 sJMP OVER CAN'T FIND NXM 


6478 036640 010137 040702 768; MOV R1, T24RB sSTARTING READ REVERSE BUFFER ADDRESS 


C14 


FEE Aa ake Re RP DA YN PB muaRD GRD REGPRseso APR -84 08:12 PAGE 110-2 


J POSSOSOHESEOHOHEEOESSEEOASESEEEEEHESESEEEEEEEEHOEEEEEEEEEEEEEHOEES 


037026 


013737 
012737 


013701 


040576 
040000 


020102 


002170 
020154 


040704 
040700 


040706 


040726 
040726 


000031 


}READ REVERSE DATA,ACK COMMAND 


i 
FSSOSSSSEHSSESSHSHSHESESEESOHOEHSESESEESESHOSEEEEEEEEEEOEEEEEHEOEEO 


MOV T240LY , T24RB+2 

MOV #100401 , T24PK3 
1658: MOV @T24PK3 ,R4 

MOV 0256. , T24SZ 

MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSRINXM!SC!BITS, R2 

cmp R1,R2 

BEQ 1708 

ADO #1, T240LY 

CMP #100, T240LY 

BEQ 168% 

JP 108 
168%: JSR PC ,FATCHK 

ERRHRD ERRNO, T24NXM,PKTSSR 
1708: CKLOOP 


SEQ 171 
1GET BITS 16 AND 17 
sREAD REVERSE DATA,ACK COMMAND 
1SET UP R4 WITH PACKET ADORESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
s6R, OK 
sNEXT BUNCH OF MEMORY 
sTOO MUCH MEMORY 
36R IF OVER 
3 TRY AGAIN 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
- WORD 458 
- WORD T24NXM 
.~ WORD PKTSSR 
sLO0P IF SELECTED 
TRAP CSCLPi 


B SSSASSOSOSSHSSSSSHESSSSESSESHESESOHEESESEOHESEEEEEEEHESEEEHOEEHHESEEEE 


i 
sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 


MOV T24BFR6,R1 

MOV R1,R2 

BIS @B81IT14,R2 

CMP R1,R 

BEQ 1808 

JSR PC .FATCHK 

ERRHRD ERRNO, T24L0P,EXPREC 
1608: 

ENOSUB 

CMP FATFLG, 025, 

BLT 999% 

JSR PC ,CKDROP 


9998; 


sGET MESSAGE BUFFER 

sSET UP EXPECTED 

sSET THE RLS BIT IN EXPECTED 

sARE THEY EQUAL 

IF EQUAL CALL IS WELL) 

sINC AND CHECK FOR MORE THAN 25 ERRORL 


sTHE RLL BIT WAS NOT SET IN xSTO 
TRAP CSERHRD 
. WORD 459 
«WORD T24L 0°? 
-WORD EXPREC 
g>>>>>>>>>22>3> END SUBTEST »>>>>>>>>>>> 
L10057: 
TRAP CsEesus 


3IS ERROR COUNT AT 25 
s6R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 


D14 


FEET Aa MaRSrE ERD ORIN PBruaRD “RAB REGERseS° APR -84 8:12 PAGE 111 SEQ 172 


037070 


037074 
037100 
037102 
037106 
037110 
037110 
037112 
037114 
037116 
037120 


037120 © 


037122 
037130 


004737 
103407 
004737 
010001 


104455 
000714 
003550 
011666 


012704 


012737 


016644 
020102 


040550 


010332 
020102 


003072 040702 
177700 040704 


ad 
3 
sTEST 4, SUBTEST 9 


3 

sVERIFIES THAT ILLEGAL BUFFER ADDRESSES CAUSE A 
sFUNCTION REJECT TERMINATION WITH ILLEGAL ADDRESS 
sCILA) ERROR BIT SET. 

3 

: 

‘ 

g= 


BGNSUB g>>>>>>>>>>>> was > a ee >> >>> >>>>>>> 
TRAP Cs6SuB8 

JSR PC, T24RTS sSET COMMAND PACKET UP CLEAR 

JSR PC, T24REST 3sSET COMMAND PACKET 

JSR PC, T24RT2 1SET UP OTHER COMMAND PACKET 


PUP rrrrrrrrrrriiiiriirriiirirrririiriririritiiiitt tty 
é 
sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 


3 
F SOASOSHASHSSADSHSESEHSOSHESESEESHESEEEOESESEEEEEEEAEEEEEEEEHEOEEEEEEEES 


JSR PC, SOF INIT 3:00 INITIALIZE "ie CONTROLLER 

Bcs 208 s8R IF INIT WAS OK 

JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 :CONTENTS OF TSSR REGISTER 


ERROF ERRNO,SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 460 
-WORD SFIERR 
«WORD SFIMSG 
MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADORESS 


FSSSHASSSNHHSSSASSHSSSSSSHSASESESEHEESESSOHASEEHEEOEEHEHEHOKEEOESHEOEOEEE 


iWRITE CHARACTERISTICS COMMAND (CALL TO WRICHR) 


3 
8 SSRSOHSHESEHSESESOSEASEHEHEEEEEEEEEEEEOHEEHEEEEEEHESEEESEEEHEEEEOE 


20%; 


JSR PC,.WRICHR s ISSUE WRITE CHARACTERISTICS 
Bcs 24s sBR, IF COMMAND ISSUED OK 
JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRIMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
TRAP CSERHROD 
-WORD 461 


-WORD WRTMSG 
-WORD  SFIMSG 


24%: CKLOOP sLOOP IF SELECTED wees on 
$CL 
MOV FREE , T24RB sILLEGAL STARTING READ BUFFER ADDRESS 
MOV #177700, T24RB+2 sCREATE ILLEGAL ADDRESS 


E14 


ZTKFA TK-25 FRT MA -APR-84 08:12 PAGE 11 7 
EST 4: BASIC READ DATA (FORWARD AND REGERSES” shi — i 

6582 PPT IITITITIITIIiTiiTiriiiiiriiitiirirrriirviiriririiririvirviririiiTiTTTitTy 

6583 ; 

aes sLEGAL MODE ,ACK,CvC*1,READ COMMAND 

7 

6586 Pe YITITITI TT iItitiitiiriitiiriiiiiirrrirtriirriririvriiirviririirirrTiTiTTiT 

6587 

6588 037136 012737 140001 040700 MOV #140001, T24PK3 sLEGAL MODE ,ACK,CVC=1,READ COMMAND 

6589 037144 012704 040700 MOV @T24PK3,R4 3SET UP R4 WITH PACKET ADDRESS 

6590 037150 012737 000400 040706 MOV #256. . 12482 sSET UP RECORD SIZE IN PACKET 

6591 037156 010465 177776 MOV R4,TSOBCRS) sISSUE COMMAND 

6592 037162 004737 017120 JSR PC. WAITF sWAIT FOR SSR!IBIT1I!BIT2 TO SET 

6593 037166 016501 000000 MOV TSSR(RS),R sGET TSSR CONTENTS 

6594 037172 012702 100206 MOV eSSA!SciB1T1 18172, Re iSET UP EXPECTED 

6595 037176 020102 CMP R1,R2 sARE THEY EQUAL 

6596 037200 001406 BEQ 758 s6R, IF OK 

6597 037202 004737 020102 JSR PC ,.FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6601 037206 ERRHRD ERRNO, T24WO0G,PKTSSR 3sTSSR INCORRECT AFTER READ DATA 
037206 104456 TRAP CSERHRD 
037210 000716 -WORD 462 
037212 041052 -WORD T24WDG 
037214 011700 PKTSSR 

6602 037216 758: CKLOOP 3LOOP IF SELECTED 

seen 037216 104406 TRAP CSCLP1 

6604 §9O0060600000000600006060606060606660006000606006000000606000600000688 

6605 3 

oor sREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (xSTO) 

3 

6608 $9000 0000060006006600000600606000000060066160006000000066060060600006 

6609 

6610 037220 013701 040576 MOV T24BFR+6,R1 sGET MESSAGE BUFFER 

6611 037224 010102 MOV R1,R2 3SET UP EXPECTED 

6612 037226 052702 000400 BIS BITS .R2 sSET THE ILA BIT IN EXPECTED 

6613 037232 9020102 CMP R1,R2 sARE THEY EQUAL 

6614 037234 001406 BEQ 1808 3B8R, IF EQUAL CALL IS WELL) 

6615 037236 004737 020102 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

6619 037242 ERRHRD ERRNO, T24ILA,EXPREC ;THE ILA BIT WAS NOT SET IN XxSTO 
037242 104456 TRAP CSERHRD 
037244 000717 ~ WORD 463 
037246 041302 WORD T24ILA 
037250 016344 -WORD EXPREC 

6620 037252 1803: 

6621 037252 ENOSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
037252 L10060: 
037252 104403 TRAP CsESuB 

6622 037254 023727 002170 000031 CMP FATFLG, 025. 3IS ERROR COUNT AT 25 

6623 037262 002402 BLT 999% 3B8R, IF LESS THAN 25 

6624 037264 004737 020154 JSR PC ,CKDROP sTRY TO DROP THE UNIT 


6625 037270 999%; 


F14 


TKFA TK- FRT END F MACRO M -APR - 08: eC 
FET a GASrc READ DATA CPORWARD AND REGERSES? MPR 84 08:12 PAGE 112 — am 
6627 2° 
6628 3 
aes sTEST 4, SUBTEST 10 
F 
6631 ;VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 
6632 sNONEXISTANT MEMORY CAUSES RECOVERABLE ERROR 
6633 s TERMINATION (TC*4), WITH THE NXM BIT SET IN THE TSSR, AND 
ss sTHAT THE TAPE IS ULTIMATELY POSITIONED PROPERLY. 
F 
6636 3 
6637 Hy 
6638 - 
6639 
6640 037270 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
037270 74.10: 
037270 104402 TRAP cs6sus 
6641 037272 012737 000000 040726 MOV #0, T24D0LY sSET BITS 16 AND 17 
6642 037300 005737 003100 98: TST KTFLG sCHECK FOR KT11 
6643 3 BEG 108 36R, IF NO KT1I1 
6644 3 
aces : DIALOG NXM PATCH 
6647 037304 000240 : NOP }REMOVE WHEN NXM IS FIXED 
6648 037306 000137 037544 JP 808 sJUMP IF KT11 (SKIP TEST) 
6649 037312 004737 043374 108: JSR PC, T24RTS 3SET COMMAND PACKET UP CLEAR 
6650 037316 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 
sens 037322 004737 043332 JSR PC, T24RT2 iSET UP OTHER COMMAND PACKET 
eas § 9O00006 0608 0660666660866600666860666666666668666860060664606606460066 
66 Hy 
eons :ISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
ros a | Aci rntaeeenAereneianinddememmenennmnen 
6659 037326 004737 016644 JSR PC ,SOF INIT 300 japgh hs ‘ CONTROLLER 
6660 037332 103407 6cs 20% 36R IF INIT WAS OK 
6661 037334 004737 020102 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6665 037340 010001 MOV RO,R1 iCONTENTS OF TSSR REGISTER 
6666 037342 ERROF ERRNO, SF IERR, SF IMSG t FATAL ERROR TSSR WAS NOT OK 
037342 104455 TRAP CSEROF 
037344 000720 . WORD 864 
037346 003550 . WORD SFIERR 
037350 011666 .WORD SF*MSG 
6667 037352 208: 
eee 037352 012704 040550 MOV @T24PACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
rth 8 9O86600686 0666 6660666066046066666666668666 56466 0SSESSSSS4SKESEEEKEDREOEEEE 
F 
te sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
yoga s ditaliieiacinaatalailtca i iahciaiari a itehieiiaaan 
6676 037356 004737 010332 JSR PC ,WRICHR sISSUE WRITE CHARACTERISTICS 
6677 037362 103407 6csS 243 :8R, IF COMMAND ISSUED OK 
6678 037364 004737 020102 JSR PC. FATCHK sINC ANO CHECK FOR Me THAN 25 ERRORS 
6682 037370 010001 MOV RO,R1 ;SAVE CONTENTS OF T 


° SSR 
6683 037372 ERRHRD ERRNO,WRIMSG, CF IMSG ;WRITE CHARACTERISTISC FAILED 


CZTKFA TK-25 FRT END FUNC 02 


TEST 4: 


BASIC 


037372 
037374 
037376 
037400 
037402 
037402 
037404 


6686 037410 


037414 
037420 
037422 
037426 


010137 


013737 


160000 
177776 
017276 


037544 
040702 


000001 


037312 
020102 


002170 
020154 


MACRO M1200 
READ DATA (FORWARD AND REVERSE ) 


040704 
040700 


040706 


040726 
040726 


000031 


24: 


768; 


G14 


20-APR-84 08:12 PAGE 112-1 


#160000 ,R1 
0177776,R2 
PC , XNXM 
76% 


180% 
R1, T24RB 


SEQ 175 


TRAP CSERHRD 

«WORD 465 

-WORD WRTMSG 

-WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CsCLP1 


sSTART POSSIBLE NXM ADDRESS 
sENO POSSIBLE NXM ADDRESS 
sCALL_NXM FINDER ROUTINE 

s36R IF WE FOUND NXM 

sJUMP OVER, CAN’T FIND NXM 
sSTARTING READ BUFFER ADDRESS 


3 BOSSES. CELEKEAESOEADADESESSESEEEAEEDEDEDSEOOEOEOEEEHEEEOEEEEEOHEEEEDSE 


;READ, ACK, CvC*1, COMMAND 


a 
i SASASASASHSSASSEASASEALEEASASESEALASESEEEHSEEEEELEDOEESOOOOEEEEEEED 


999%: 


T240LY , T24RB+2 
#140001 , T24PK3 
@T24PK3 ,R4 


1 
@SSR!SC!NXM!BIT3, R2 
R1,R2 
75$ 
#1, T240LY 
So » T240LY 


pe . ATCHK 
ERRNO, T24NXM,PKTSSR 


FATFLG, 025. 
999% 
PC ,CKDROP 


sMEMORY BITS 16 AND 17 

sREAD, ACK, CvC=1, COMMAND 

3SET UP R4 WITH PACKET ADORESS 

sSET UP RECORD SIZE IN PACKET 
OMMAND 


s ISSUE C 
sWAIT FOR SSR!IBIT1I!IBIT2 TO SET 
sGET TSSR CONTENTS 


3SET UP EXPECTED 
sARE THEY EQUAL 
3sB8R, IF OK 


sTRY AGAIN 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 


TRAP CSERHRO 

-WORD 466 

«WORD T24NXM 

«WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CscLP1 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10061: 
TRAP CsESUB 


sIS ERROR COUNT AT 25 
sBR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
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TKFA TK- FR MA -APR - id 
$éff 4: BASIC Refit pays (PBrward GND REGERSES a oo a Sve 
6724 1° 
6725 F 
eres sTEST 4, SUBTEST 11 
a 
6728 ;VERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
6729 ;TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 
eran sWITH THE NONEXECUTABLE FUNCTION (NEF) ERROR BIT SET 
3 
6732 3 
6733 3 
6734 8° 
6735 
6736 037562 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
037562 T4.11: 
037562 104402 TRAP Cs6Sus 
6737 037564 004737 043374 JSR PC, T24RTS 3SET COMMAND at UP CLEAR 
6738 037570 004737 043240 JSR PC, T24REST iSET COMMAND PACKET 
hes 037574 004737 043332 JSR PC, T24RT2 3SET UP OTHER COMMAND PACKET 
6741 §9O006060060006666060606600660606060060606006060600400000060600000606400608 
6742 3 
Lime sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
Ls , cantanesenieubesnnesuntaniebnnnnbbatbadneneeaennennebensenntn 
46 
6747 037600 004737 016644 JSR PC ,.SOFINIT 300 INITIALIZE ON CONTROLLER 
6748 037604 103407 bcs 208% 36R IF INIT WAS OK 
6749 037606 004737 020102 JSR PC. FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6753 037612 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 
6754 037614 ERROF ERRNO, SFIERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
037614 104455 TRAP CSEROF 
037616 000723 -WORDB 467 
037620 003550 -WORD SFIERR 
037622 011666 . WORD SF IMSG 
6755 037624 20%: 
ore 037624 012704 040550 MOV @T24PACKET ,R4 ;SUBROUTINE NEEDS PACKET ADDRESS 
ore 5 OO06O000000006006060604666646000060060006060606006006060000006000600000086 
° 
one ;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
a Y ieineteieheaaasineestineeiateeantiiaeiniiehitiapiaintanbaaeantsi telat tiie etiame 
6764 037630 004737 010332 JSR PC,WRTCHR s ISSUE WRITE CHARACTERISTICS 
6765 037634 103407 BcSs 24% ;6R, IF COMMAND ISSUED OK 
6766 037636 004737 020102 JSR PC, FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6770 037642 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6771 037644 ERRHRD ERRNO,WRTMSG, SF IMSG sWRITE CHARACTERISTISC FAILED 
037644 104456 TRAP CSERHRD 
037646 000724 -WORDB 468 
037650 004754 WORD WRTMSG 
037652 011666 . WORD SFIMSG 
6772 037654 24%: CKt.OOP ;LOOP IF SELECTED 
<0 037654 104406 TRAP CsCLP1 
6774 {PERRO EEEOEDAEEADEDEEDOEDOOOEOOEOOO4400004600000000000000060000000400 


6775 ; 
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6776 :ISSUE REWIND COMMAND TO SELECTED TAPE ORIVE 
; 
the F PAASAAHHSAASARASSSEASAASEHASASEEAEAADEEOASESSESEAEEHEEDAREEEEEEEEEDLE 
6779 
6780 037656 004737 010434 JSR PC REWIND ;CALL TAPE REWIND COMMAND 
6781 037662 004737 017236 JSR PC. CHKTSSR ;SEE HOW TSSR TI 
6782 037666 103407 BCS 308 i8R, IF NO PROBLEM 
6783 037670 010001 MOV RO,R1 iSAVE TSSR 
6784 037672 004737 020102 JSR PC: FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
6788 037676 ERRHRO ERRNO, T24RWN,PKTSSR }REWIND NOT ACCEPTED 
037676 104456 TRAP CSERHRD 
037700 000725 .WORD 469 
037702 042036 WORD  T24RWN 
037704 011700 WORD PKTSSR 
6789 037706 30%: CKLOOP ;LOOP IF SELECTED 
037706 104406 TRAP —s- CSCLP1 
6790 037710 012703 000400 MOV 0256. ,R3 sRECORD SIZE 
6791 037714 013737 003072 040702 MOV FREE, T24RB ;STARTING WRITE BUFFER ADDRESS 
6793 FPSSASASSSASHSAASASESAAAAAEASASESSEEHESESHASAASEEESEESEEKEAREEEEDEAEEEED 
6794 : 
6795 ;READ REVERSE DATA,ACK COMMAND 
3 
» tad 8 SPOASSASSESEAEAEHEDEEEADEEEOOALEEEDAEHOEEEOEEEEOEOEOE4OE4OO4E648464886 
6799 037722 012737 100401 040700 MOV @100401, T24PK3 }READ REVERSE DATA.ACK COMMAND 
037730 012704 040700 MOV eT24PK3_R4 ;SET UP R4& WITH PACKET ADDRESS 
6801 037734 653: 
6802 037734 010337 040706 MOV R3,724SZ sSET UP RECORD SIZE IN PACKET 
6803 037740 010465 177776 MOV Ra, TSDBCRS) ;ISSUE COMMAND 
6804 037744 004737 017120 JSR PC; WAITF ;WAIT FOR SSR TO SET 
6805 037750 016501 000000 MOV TSSR(RS),R ;GET TSSR CONTENTS 
6806 037754 012702 100206 MOV OSSAISCIOTT1IGIT2.R2 SET We EXDECTED 
6807 037760 020102 CHP Ri,R2 ;ARE THEY EQUAL 
6808 037762 001406 BEG 753 :8R, IF OK 
6809 037764 004737 020102 PC, FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6813 037770 ERRHRD ERRNO. T24WDE ,PKTSSR ;TSSR INCORRECT AFTER READ DATA 
037770 104456 TRAP  CSERHROD 
037772 000726 .WORD 470 
037774 041501 "WORD T24WDE 
037776 011700 WORD  PKTSSR 
6814 040000 75$:  CKLOOP :LOOP IF SELECTED 
gars C8000 108406 TRAP —- CSCLP1 
rte 8 280066066466 640660660466646646606 06608806066 6066666460466064064066000646460864680 
6 
6818 ;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XxSTO) 
; 
oor 8 92806666646 0006066666606660006666606666666666666066606646066006000008 
6822 040002 013701 040576 MOV T24BFR+6,R1 1GET MESSAGE BUFFER 
6823 040006 010102 MOV R1,R2 :SET UP EXPECTED 
6824 040010 052702 002000 BIS @BIT10,R2 sSET THE NEF BIT IN EXPECTED 
6825 040014 020102 CMP R1,R2 ;ARE THEY EQUAL 
6826 040016 001406 BEQ 1808 BR, IF EQUAL CALL IS WELL) 
6827 040020 004737 020102 JSR PC .FATCHK ;INC AND CHECK FOR MORE THAN 25 ERRORS 
6831 040024 ERRHRD ERRNO, T24NEF ,EXPREC THE RLL BIT WAS NOT SET IN XxSTO 


‘é 


TKFA TK- FRT 


ST 4: BASIC RE 


3 
023727 002170 000031 
002402 
004737 020154 


1808: 


999%: 


J14 


AO DATA CPORWARD AND REVERSES) Oe CBt12 PAGE 115-2 


ENOSUB 
CMP FATFLG,@25. 
BLT 999% 


JSR PC ,.CKDROP 


SEQ 178 
TRAP CSERHRD 
-WORD 471 
~ WORD T24NEF 
EXPREC 
g>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


L10062: 
TRAP CsESuUB 
sIS ERROR COUNT AT 25 
s6R, IF LESS THAN 25 
sTRY TO DROP THE UNIT 
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TEST 4: BASIC READ DATA (FORWARD AND REVERSE) 
6839 3¢ 
6840 3 
Soak ;TEST 4, SUBTEST 12 
b 
6843 sVERIFIES THAT A READ REVERSE COMMAND ISSUED WHILE THE 
6844 sTAPE IS POSITIONED BEFORE THE FIRST RECORD ON TAPE 
6845 ;(BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT. 
6846 3 
6847 3 
6848 3 
6849 3- 
6850 
6851 040052 BGNSUBS g>>>>>>>>>>>> = SURTEST »>>>>>>>>>>>> 
040052 4.12: 
040052 104402 TRAP CsBSUB 
6852 040054 004737 043374 JSR PC, T24RTS 4-4 COMMAND oat UP CLEAR 
6853 040060 004737 043240 JSR PC, T24REST 3SET COMMAND PACKET 
pee 040064 004737 043332 JSR PC, T24RT2 iSET UP OTHER COMMAND PACKET 
6856 5 OO OO0900040008604604604606066406060666000606066046060606460604604044008 
6857 3 
ooee sISSUE CONTROLLER “SOFT” INITIALIZE - CARRY BIT CLEAR IF ERROR 
3 
6860 5 9O086040606060066600060006046060404064600060606666004646046600004040068 
6861 
040070 004737 016644 JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
6863 040074 103407 bcs 20$ 3BR IF INIT WAS OK 
6864 040076 004737 020102 JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 ERRORS 
6868 040102 010001 MOV RO,R1 i CONTENTS OF TSSR REGISTER 
6869 040104 ERROF ERRNO, SFIERR,SFIMSG tFATAL ERROR TSSR WAS NOT OK 
040104 104455 TRAP CSEROF 
040106 000730 .-WORD 472 
040110 003550 . WORD SFIERR 
040112 011666 .- WORD SFIMSG 
6870 040114 20%: 
oars 040114 012704 040550 MOV @T24PACKET ,R4 s;SUBROUTINE NEEDS PACKET ADDRESS 
7 Ho PEt Yttrir rrr itr tr itrtrtirirritr tir ttitiitrrirrriitrtriitittittittit) 
3 
yo dk sWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 
Hy 
yo tll 3 OOHAOOOOEOO444660660464466064466846466046646406600046400600600000000000804 
6879 040120 004737 010332 JSR PC, oe s ISSUE WRITE CHARACTERISTICS 
6880 040124 103407 BCS 24% ;B8R, IF COMMAND ISSUED OK 
6881 040126 004737 020102 JSR PC, ee sINC AND CHECK FOR MORE THAN 25 ERRORS 
6885 040132 010001 MOV RO,R ;SAVE CONTENTS OF TSSR 
6886 040134 ERRHRD ERRNO. WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
040134 104456 TRAP CSERWRD 
040136 000731 . WORD 473 
040140 004754 .WORD WRTMSG 
040142 011666 . WORD SF IMSG 
6887 040144 243: CKLOOP ;LOOP IF SELECTED 
anne 040144 104406 TRAP CSCLP1 
6889 Per rIririTtri titi r irri titi ttritt tri ri tritititirtiititirtrririitirttrt 


f 


TKFA TK 
ST 4: 


040304 
040312 
040316 


012703 
013737 


012737 
012704 


010337 


104406 
012703 
013737 


012737 
012704 
010337 


BASIC READ DATA (FORWARD 


010434 
017236 


020102 


000400 
003072 


140005 
040700 


040706 
177776 
017120 
000000 


000200 


020102 


000400 
003072 


040702 


040700 


040702 


040700 
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ACRO M1200 20-APR-84 2 PAGE 114- 
REVERSES” oe sates 


s ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 


: 
F PHSASAHAEAEAEAAAOERALASEASASEREASAAEASELOEBADERASESEAREDEALEESEEEAREREEE 


JSR PC ,REWINOD sCALL TAPE REWIND COMMAND 
TSSR IS 


JSR PC, CHKTSSR sSEE HOW 
BcS 30% s6R, IF NO PROBLEM 
MOV RO,R1 sSAVE TSSR 
JSR PC ,FATCHK sINC ANDO CHECK FOR MORE THAN 25 
ERRHRD ERRNO, T24RWN,PKTSSR SREWIND NOT ACCEPTED — 

. WORD 

. WORD’ 

308: CKLOOP sLOOP IF SELECTED nen 

MOV #256. ,R3 sRECORD SIZE 


MOV FREE , T24RB sSTARTING WRITE BUFFER ADDRESS 
j PARAARAROSEEEADEDEEEDDSEAEEEEREEDEEODEEOEE4646440066666000000064466008 
;WRITE DATA,ACK,CVC=1 COMMAND 
sOnaeccsssssacesscoosncgnanssssesssoancossssesssonnsceoecsesssesece 


MOV #140005, T24PK3 sWRITE DATA,ACK,CVC=1 COMMAND 
MOV @T24PK3,R4 sSET UP R4 WITH PACKET ADDRESS 


65%: 
MOV R3,T24SZ 3SET UP RECORD SIZE IN PACKET 
MOV R4,TSOBCRS) s ISSUE COMMAND 
JSR PC ,WAILTF sWAIT FOR SSR TO SET 
MOV TSSR(RS), R1 3GET TSSR CONTENTS 
MOV @SSR ,R2 :SET UP EXPECTED 
CMP R1,R2 ;ARE THEY EQUAL 
BEQ 75$ ;6R, IF OK 
JSR PC, FATCHK sINC AND CHECK FOR MORE THAN =. 
sSOFT ERROR, REALLY CHECKING T 
sREAD REVERSE DATA COMMAND 
ERRSOFT ERRNO,WRTERR,PKTSSR iTSSR INCORRECT AFTER sc D ao 
. WORD 
. WORD 
. WORD 
758: CKLOOP ;LOOP IF SELECTED —_ 
MOV #256. ,R3 sRECORD SIZE 


MOV «FREE, T24R8 iSTARTING READ BUFFER ADDRESS 
§ 9#224404046064460464606464666640646404044646664044446464600604646646004006464046004008 
}READ REVERSE DATA,ACK COMMAND 
Ee ET ee ON ee RT 


MOV #100401, T24PK3 sREAD REVERSE DATA,ACK COMMAND 
165%: MOV @T24PK3,R4 ;SET UP R4 WITH PACKET ADDRESS 
MOV R3,T24SZ sSET UP RECORD SIZE IN PACKET 


SE@ 180 


ERRORS 


ERRORS 


CSERSOFT 
475 
WRTERR 
PKTSSR 


CsCLP1 
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6992 
6993 


104406 
012703 
013737 


012737 


177776 
017120 
000000 
0c0200 


020102 


000400 
003072 040702 


040700 


040604 
000001 


020102 


002170 000031 


J 
ERRHRD 
170$: 


CKLOOP 


MOV 
MOV 


R4, am 

PC, WAITF 

TSSRCRS),R1 
Re 

1 

PC ,.FATCHK 


ERRNO, T24TRL,PKTSSR 


#256. »R3 
FREE , T24RB 


SEQ 181 


s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
sSET UP EXPECTED 
sARE ao EQUAL 
36R, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 


-WORD 476 

-WORD T24TRL 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


sRECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


GREER ARHAMRAKARAHRHMREAEEAHAAARDAAAAAGHRHAARDRHAAREEREEAHARRAAEAEER RADE 


; 
sREAD REVERSE DATA,ACK COMMAND 


z 
F SSAAAHHSASASSSAAAAASASSSASSSSASEAASADADEEAEEASESEDASESASESEKEEEDEE 


195$: 


2008: 


210%: 


CMP 
BLT 


#100401, T24PK3 
@T24PK3,R4 


SRCRS),R1 
essR!SC181T2, R2 
3008 
PC ,FATCHK 
ERRNO, T24TRL,PKTSSR 


T24BFR+14,R1 
R1,R2 
#BITO,R2 
oan 


210 
PC .FATCHK 
ERRNO, T24LOR ,EXPREC 


FATFLG, #25. 
999% 


sREAD REVERSE DATA,ACK COMMAND 
sSET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 

3SET UP EXPECTED 
sARE THEY EQUAL 
BR, IF OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER = 


CSERHRD 
-WORDB 477 
-WORD T24TRL 
-WORD PKTSSR 


sLOOP IF SELECTED 
TRAP CsCLP1 


sGET MESSAGE BUFFER (XxST3) 

;SET UP EXPECTED 

sSET THE RIB BIT IN EXPECTED 

sARE THEY EQUAL 

sBR, IF EQUAL CALL IS WELL) 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
;THE RIB BIT WAS NOT SET IN XSTO 


TRAP CSERHRD 
-WORD 478 
-WORD T24LOR 
. WORD EXPREC 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10063: 
TRAP CSsESUB 


sIS ERROR COUNT AT 25 
3;B8R, IF LESS THAN 25 
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EST 4: BASIC READ DATA’ (FORWARD AND REVERSES 
6995 040522 004737 020154 JSR PC ,CKDROP sTRY TO OROP THE UNIT 
6996 040526 999$: 
6997 ; 
6998 3 
6999 : 
7000 040526 004737 017356 JSR PC, TSTLOOP 300 WE NEED TO ITERATE TEST 
7001 040532 103002 BCC 163$ ;BR, IF NO LOOP REQUIRED 
7002 040534 000137 032224 JMP T24L00P ;EXECUTE AGAIN 
7003 040540 163%: 
7004 040540 EXIT TST ;ALL DONE THIS TEST 


040540 104432 TRAP CsExIT 
040542 002662 «WORD 1L10047-. 


$e KFA TK-25 FRT END F 
ST 4: easic READ DATA 


003072 


A CPORWARD AND 


VERSE 


B15 


iw -APR-84 06:12 PAGE 116 


| 
sLOCAL STORAGE FOR THIS TEST 


t- 
BL! 
T24PACKET; 


T24BFR: .BLKW 


T24BF 2: 
T248S0: .BYTE 
T248S1: .BYTE 
T24S2: WORD 
T24S3: .WORD 
3 


-EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T24RN; .WORD 
T24WOR: .WORD 
T24CON: .WORD 

WORD 
T240LY: .WORD 


10-«, - TUV2AE7> 


100204 
T240ATA 
te) 

10. 
T246FR 
fe) 

20. 

ie) 

25. 


10-«, -TUV2AE7> 
100206 

T246F 2 

t°) 

6. 

10-<, -TUV2AE7> 
100205 


FREE 


sCOMMAND PACKET FOR T 


SEQ 1865 


sWRITE CHARACTERTSTICS SLOMAN, WITH IE, ACK 


sADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
ICHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 


sADORESS OF SELECT BLOCK DATA 
sSIZE OF DATA PACKET 


sREAD COMMAND, IE AND ACK 
sADORESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 


iDATA AREA 


sREAD DATA (NEXT) 
sREAD DATA RETRY 
sWRITE CONTINOUS 


sEND OF DATA 


sDELAY STORAGE AREA 


FEET Aa aRerE AERP OA YN PE rwaRD RAD REGPRseFO APR -84 08:12 PAGE 117 


012701 
012721 


001371 


30 
177777 
000000 


040570 


Cis 


SEQ 164 


° 
sLOCAL TEXT MESSAGES FOR TEST 


T24NEF; .ASCIZ ‘NEF Not Set After NON-EXECUTABLE FUNCTION’ 

T24LOR: .ASCIZ ‘RIB Not Set After READ REVERSE Into BOT’ 

T24WOG: .ASCIZ ‘TSSR Not Correct After I11 1 a hee Addrees Bits Set’ 

T24NXM: .ASCIZ ‘TSSR Not Correct After NXM In Packet’ 
WOF: .ASCIZ ‘TSSR Not Correct After Illegel Mode Bite Set’ 

T24ILA: .ASCIZ ‘Illegel Bits, Feiled To Set ILA Bit In xSTO’ 

T24L0Q@: .ASCIZ ‘Illegel Mode Bite, Feiled To Set ILC Bit In xSTO’ 

T24SSR: .ASCIZ ‘READ COMMAND Not Accepted’ 

T24WOE: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 

T24B0T: .ASCIZ ‘Tepe Not At BOT After REWIND Commend’ 

T240TA: .ASCIZ ‘Dete Written To Tape Not awe To Date Read From Tape’ 

T24EOT: .ASCIZ ‘READ DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

24TH: .ASCIZ ‘TSSR Not Correct After READ COMMAND Re ject’ 

T24RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 

T24RNC: .ASCIZ ‘RAM Error, Correct Dete Pattern Not In Rem’ 

TP4AMS: .ASCIZ ‘TSSR Init. Feiled After READ COMMAND’ 

T240FL: .ASCIZ ‘Orive 7 Select Feiled To Set “OFL” In TSSR’ 

T24WO0: .ASCIZ ‘TSSR Not Correct After READ DATA Command, SWB Bit Set’ 

T24wOC: .ASCIZ ‘TSSR Not Correct After READ A a= Command’ 

T24vVCK: .ASCIZ ‘CVC Set, Didn''t Reset VCK In Meesege Buffer’ 

T24BA; .ASCIZ ‘TSBA Not Correct After READ DATA Command’ 

T24WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 

T24LON: .ASCIZ ‘Reading sone Record Failed To Set RiL Bit In xXSTO’ 

T24LOP: .ASCIZ ‘Reading L Record Failed To Set RLS Bit In xXSTO’ 

T24PBP: .ASCIZ ‘Residuel Byte Count Incorrect After Short Record Read’ 

T24TRL: .ASCIZ ‘Reading Long Record Failed To Give Tape Stetus Alert’ 

TSf24I0: -ASCIZ ‘Basic Read Data (Forward end Reverse)’ 


3 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


sWRITE SUBSYSTEM MEMORY C 
$ 
3- 


T24REST: 

SAVREG sSAVE THE REGISTERS 

MOV @T24PACKET,R1 sSTART OF THE PACKET 

MOV 100004 ,(R1)>+ sWRITE oe MEM. WITH ACK, 

MOV @T24DATA,C(R1)> sADORESS OF CHARAISTICS DATA BLOCK 

CLR (R1)> }EXTENDED ADORE SS 

MOV #10. ,CR1)> sSIZE OF DATA BLOCK IN BYTES 

on ne sADDRESS OF MESSAGE BUFFER 

L ° 

on +4 mea sLENGTH OF MESSAGE BUFFER 

L . 

MOV @0,(R1) sSELECT ORIVE ZERO 

MOV 024. ,R2 sNUMBER OF LOCATIONS TO BE CLEARED 
648; MOV 177777, T24BFRCR2) sALL ONES TO MESSAGE BUFFER 

TsT -(R2) sNEXT LOCATION 

CMP #0 ,R2 sCKECK FOR END OF LOOP 

BNE 64% sKEEP GOING UNTIL DONE 


D1i5 


FA TK-25.ER F -APR - e ?. 
er T ag ake rE eNO DA YN Pbmwand ahs BEEPS se 5° OF CSr5s PRES BEP-8 SEQ 165 

7123 043330 000207 RTS —s PC + RETURN 
7125 
7136 043332 T24RT2: 
7127 043332 SAVREG ;SAVE THE REGISTERS 
7128 043336 012701 040660 MOV @T24PK2,R1 SSTART OF THE PACKET 
7129 043342 012721 100206 MOV #100206, (R1)+ }WRITE SUBSYSTEM MEM. WITH ACK, IE 
7130 043 012721 040710 MOV eT24BF2.(R1)> ;ADORESS OF DATA 
7131 043352 CLR (R1)> EXTENDED ADORESS 
7132 043354 012721 000006 HOV 06. ,(RL)> }SIZE OF DATA BLOCK IN BYTES 
7133 043360 1 CLR (Ride 
7134 043362 012701 040710 MOV eT2aBF2,R1 :POINT TO DATA SEL AREA 
7135 043366 005021 CLR (R1)e 
7136 043370 005011 CLR (R1) 
7137 043372 000207 RTS PC :RE TURN 
7138 043374 T24RT3: 
7139 043374 SAVREG ;SAVE THE REGISTERS 
7140 043400 012701 040700 MOV oT24PK3,R1 START OF THE PACKET 
7141 043404 012721 000000 MOV @0,(R1)> CLEAR AREA OUT 
7142 043410 012721 000000 MOV @0;(R1)+ }ADORESS OF DATA BLOCK 
7143 043414 005021 CLR (Ris i EXTENDED SS 
7144 043416 012711 000000 MOV 00, (R1) }SIZE OF DATA BLOCK IN BYTES 
7145 043422 000207 RTS }RE TURN 
7146 043424 ENDTST 

043424 L 10047: 

043424 104401 TRAP ss CSETST 


EST’ 5: MANUAL INTERVENTION 
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-SBTTL TEST S: MANUAL INTERVENTION 
sTHIS TEST MUST BE STARTEC AS FOLLOWS: 


i 

sAT THE DIAGNOSTIC SUPERVISOR PROMPT “DR>” 
sTYPE “START/FLAG:PNT/TEST:S/PASS:1” 

6 2 —s peeseecscescsseseececessous 

3 


sTHE MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 
: THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
sTHE SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
sTHIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
sSUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
sTHE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
sARE BY TYPING <CTRL-C> OR SELECTING CODE 4. 
sSELECTION CODES AND SUBROUTINES ARE: 
6 


CODE ROUTINE 


HELP. PRINTS THIS MENU. 

REWIND AND UNLOAD COMMAND TEST 
WRITE-PROTECT TEST 

FRONT PANEL ON-LINE SWITCH TEST 
EXIT (RETURN TO SUPERVISOR) 


a2urvro 


EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 


SELECTION 0 - PRINTS OUT THE MENU ON THE CONSOLE TERMINAL. 


sSELECTION 1 - THIS ROUTINE INSTRUCTS THE OPERATOR TO PLACE THE DRIVE ON-LINE 
sAND AT OR BEYOND BOT. THE TEST WILL THEN ISSUE THE REWIND AND 

sUNLOAD COMMAND. IT WILL ALSO TELL THE OPERATOR IF THE DRIVE 

sENDED UP ON-LINE OR OFF-LINE. 

5 


3 

sSELECTION 2 - THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
sTAPE REEL THAT DOES NOT HAVE A WRITE-ENABLE RING INSTALLED, THEN 
sWAITS FOR THE OPERATOR TO RESPOND THAT THIS HAS BEEN ACCOMPLISHED. 
sUPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 

sA WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 

sTAPE AND EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
sTHE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
sWRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
ome ERROR IS REPORTED. 


;SELECTION 3_- THIS TEST CHECKS THAT THE PROGRAM CAN READ THE SENSE 
sOF THE FRONT PANEL “ON-LINE” BUTTON/LIGHT. THE PROGRAM CHECKS THE 


SEQ 186 


TKF é. TK-25 FR 
TESTS. "haunt “INTERVEN TON 
7205 
7206 
7207 
7208 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 043426 
043426 
7217 043426 005037 002170 
7218 043432 005037 003100 
7223 043436 005737 002162 
7224 043442 001403 
7225 043444 012700 045400 
7226 043450 000402 
7227 043452 
7228 043452 012700 046466 
7229 043456 004737 017410 
7230 043462 004737 021404 
7231 043466 103402 
7232 043470 000137 044600 
7233 043474 022737 000001 
7234 043502 001402 
7235 043504 000137 044600 
7236 043510 
7240 043510 37 002170 
7241 043514 012737 176750 
7242 043522 004737 016644 
7243 043526 103427 
7244 043530 010001 
7245 043532 032701 000200 
7246 043536 001023 
7247 043540 
043540 012727 000250 
043544 000000 
043546 013727 002116 
043552 000000 
043554 005367 177772 
043560 001375 
043562 005367 177756 
043566 001367 
7248 043570 005337 044612 
7249 043574 001352 
7250 043576 
043576 104455 
043600 000765 
043602 003550 
043604 011666 
7251 043606 012700 046512 
7252 043612 012701 000004 
7253 043616 737 021162 
7254 043622 010004 
7255 043624 006304 


Pi 
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002162 


044612 


sSTATE OF THE ORIVE (ON-LINE OR OFF-LINE) AND PRINTS A MESSAGE T 


sNOTIFY THE OPERATOR I.E. 
i 


: 

sSELECTION 4 - THIS WILL RETURN THE PROGRAM TO THE DIAGNOSTIC 
sSUPERVISOR PROMPT. NOTE: IF THE OPERATOR FAILED TO SELECT A PASS 
sCOUNT OF ONE, THE PROGRAM WILL LOOP UNTIL STOPPED WITH A CONTROL C. 


BGNTST 
CLR FATFLG 
CLR KTFLG 
TST TSTCNT 
BEQ 21% 
MOV @T3BENE ,RO 
BR 3$ 
218: 
MOV @T38ID,RO 
38: JSR PC, TSTSETUP 
JSR »CHKMAN 
Bcs 19% 
JMP 64% 
19%: CMP #1, TSTCNT 
BEQ 228 
JMP 643 
228: 
2s: CLR FATFLG 
MOV #65000. , TS8DLY 
5$: JSR PC,SOF INIT 
bcs 23% 
MOV RO,R1 
BIT @SSR,R1 
BNE 23% 
DELAY 250 
DEC T380LY 
BNE bo | 
ERRDF ERRNO,SFIERR,SFIMSG 
23%: MOV 9 pee 
MOV R1 
JSR ec: *GETSEL 
MOV RO.R4 
ASL RE 


TS:: 
sCLEAR FATAL ERROR FLAG 
sHOLD OFF KT11 
3IS THIS THE FIRST TEST 
:8R, IF FIRST TEST 
:"TEST NOT EXECUTED” 

3; JUMP IF NOT FIRST TEST 


sTEST ID MESSAGE 
300 THE COMMON SETUP 


SEQ 187 


0 
“DRIVE IS NOW OFF-LINE” OR “DRIVE IS NOW ON-LINE”. 


sIS MANUAL INTERVENTION ALLOWED? 


ALLOWED 


sCHECK MIGHT HAVE TO LEAVE 
s8R, IF YOU DON'T HAVE TO 
sWASN’T FIRST TEST IN SEQUENCE 


sCLEAR THE FATAL ERROR FLAG 
sSET UP en 


OK 
sCONTENTS OF TSSR REGISTER 
sCHECK FOR TSSR SET 
sKEEP GOING IF NOT SET 
sCALL DELAY ROUTINE 


sBUMP COUNTER DOWN 
s8R, IF MORE TIME LEFT 
;REPORT FATAL ERROR 


sMENU OF MANUAL INTERVENTIONS 
sMAXIMUM ALLOWED SELECTION 

3GO GET THE OPERATORS SELECTION 
3;GET NUMBER FROM ROUTINE 
sCONVERT TO WORD OFFSET 


9250,(PC)+ 
anita 
-6(PC) 

4 


"22¢PC) 
. -20 


CsEROF 
501 

SFIERR 
SF IMSG 


recy, 


7286 
7287 
7288 


7289 
7290 


THAROAL INTERVENT EON” 


000000 
013727 
000000 


012746 
012746 


043632 


046026 
000001 


000004 
016644 


045320 
010332 


000250 
002116 
177772 
177756 
044612 


045772 
000001 


000004 
043664 


046105 
000001 


G15 
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6$: 


2228: 


3008: 


3108: 
044612 
000100 311%: 


315%: 


DEC 
BNE 
PRINTF 


JMP 
PRINTF 


863(R4) 


PC, SOF INIT 
300% 


RO,R1 
ERRNO, SFIERR , SF IMSG 


@T38PK2 ,R4 
PC ,.WRTICHR 


1 
ERRNO, WRTMSG , SF IMSG 


#25. ,T38DLY 
TSSRCRS), OOFL 
315% 

250 


T380LY 
311% 
@T380FL 


2228 
@T38MSS 


SEQ 186 

+ JUMP TO PROPER LOOP 

sRETYPE THE MENU 

s 1 REWIND AND UNLOAD COMMAND TEST 

s 2 WRITE PROTECT 

‘ : FRONT PANEL ON-LINE SWITCH TEST 

s 4 LEAVE THE TEST 

sTELL‘EM WHAT TO DO 
MOV @T38MS4 , -( SP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 

300 SOFT INIT OF CONTROLLER 

s6R IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR DURING INIT 
TRAP CSERDF 
-WORD 502 
-WORD SFIERR 
«WORD SFIMSG 

sSUBROUTINE NEEDS PACKET ADDRESS 

sISSUE WRITE CHARACTERISTICS 

sBR, IF COMMAND ISSUED OK 

sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
-WORD 503 
-WORD WRTMSG 
«WORD SFIMSG 

:SET UP FOR A LONG WAIT 

sIS ORIVE OFF-LINE 

;8R, IF ORIVE IS ON-LINE 

sDELAY ABOUT .25 SEC 
MOV #250, (PC)> 
-WORD O 
MOV LSOLY,CPC)+ 
-WORD O 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 

.-20 


BNE 
sBUMP LONG DELAY COUNTER DOWN 
3sBR, IF MORE LONG DELAY TO GO 
s"ORIVE IS NOW OFF-LINE” 


MOV @TS38OFL.-(SP) 
MOV #1,-C(SP) 

MOV SP RO 

TRAP CSPNTF 


ADD 
sSTAY HERE FOREVER, WITH MESSAGE 
s"ORIVE SHOULD NOW REWIND AND GO OFL” 

MOV @T38Mss, 


-(SP) 


ZTKFA 
EST 5: 


TK-25 FRT 
INTE 


MANUAL 


177777 


103371 


FERVENT ION 


000004 
002172 
043510 


047042 
043510 
016644 


His 
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3208: 


350%: 


380$: 


3908: 
25%: 


278: 


MOV @TSEPKS ,R4 

MOV R4, TSOBCRS) 

JSR PC ,WAITF 

MOV TSSRCRS),R1 

MOV @SSR!OFL ,R2 

CMP R2,R1 

BEQ 350$ 

ERRHRD ERRNO, T38SST,PKTSSR 
CKLOOP 

MOV TSSRC(RS),R1 

BIT @OFL ,R1 

BNE 380% 

PRINTF @T38ONL 

BR 390% 

PRINTF @TS80FL 

CLR INTRECV 

JMP 2s 

GMANIL T38MSG,T38DAT, -1,NO 


BNCOMPLETE 258 


TST T38DAT 

BNE 27% 

JMP es 

JSR Ft - INIT 

BcsS 

MOV RO. a1 

ERROF ERRNO, SFIERR, SF IMSG 


MOV 
TRAP 


SEQ 189 


SP RO 
CSPNTF 


ADO @4,SP 
sSET UP NEW PACKET FOR REWIND/RELEASE 


sREWIND ye ye -CvC*1 CMO 


sWAIT FOR SSR T 
sGET TSSR STATUS 
sSET JP EXPECTED 
sIS EVERYTHING OK 
sBR, IF ALL IS 


WELL 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


«WORD 
. WORD 


sLOOP ON ERROR, IF FLAG Ser 
sREAD TSSR STATUS 
sCHECK THE OFF-LINE BIT 


sBR, IF ORIVE IS OFF-LINE 
“DRIVE IS NOW ON-LINE” 


sALMOST DONE 
s“ORIVE IS NOW OFF-LINE” 


TRAP 
s;CLEAR INTERRUPT FLAG 


;TRY AGAIN 
sWAIT FOR OPERATOR TO MOUNT TAPE 
TRAP 
BR 
. WORD 
- WORD 
- WORD 
- WORD 


1 
sRETRY IF ERROR 


Bcc 
sDIO OPERATOR SAY ‘YES' ? 
sBRANCH IF YES 
sRETURN TO MAIN MENU 


s00 SOFT INIT OF CONTROLLER 
sBR IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL ERROR DURING INIT 


CSERHRD 
504 


T38SST 
PKTSSR 


CsCLP1 


@TS8ONL, 
#1, -(SP) 
SP RO 
CSPNTF 
84,SP 


-(SP) 


@T380FL.,-CSP) 
#1,-CSP) 
SP 


CSEROF 
S05 

SFIERR 
SF IMSG 


CZTKFA TK-25 FRT END FUNC 02 
: MANUAL INTERVENTION 


TEST 
7324 


104406 


045320 
010332 


044644 


043510 


046430 
000001 


000004 
136514 
045370 
177776 
017120 
000000 


100206 


044644 


004000 
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4008: 


4108: 


4308: 


045372 435%: 


4403: 


Ii5 
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OTS8PK2 ,.R4 

PC ,WRTCHR 

410% 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


T38BFR+6,R1 
R1,R2 
*BIT2,R2 
R1,R2 


430% 
ERRNO, TS6WRL ,EXPREC 


es 


@TS8WOK 


@FREE , TS8wR 


RS),R 
@SC!SSR ‘erta !eIT2,R2 
R1,R2 
440% 
ERRNO, TS8WRT ,PKTSSR 


T36BFR+6,R1 
R1,R2 
#BIT11,R2 
R1,R2 


450% 
ERRNO, T38WLE ,EXPREC 


sLOOP IF SELECTED 


TRAP 


SEQ 190 


CscLP1 


sSUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE ae oe 


IF COMMAND ISSUE 
sSAVE CONTENTS OF TSSR 


sWRITE CHARACTERISTISC FAILED 
TRAP 


sLOOP IF SELECTED 


sPICK UP xXSTO — 


sSET UP EXPECTED 


. WORD 
. WORD 
WORD 


sSET UP THE WRITE LOCKED BIT 


sARE THEY CORRECT 


sBR, IF ALL IS WELL (OK) 
"WRITE LOCKED BIT IS NOT Ta ETc.” 


. WORD 
. WORD 


CSERHRD 
506 


WRTMSG 
SF IMSG 


CsCLP1 


oo 


7S8uRL 
EXPREC 


;BECAUSE OF ERROR GO BACK TO MENU 


sLOOP IF SELECTED 


TRAP 
sPRINT “ORIVE IS WRITE —. 
os 


sWAIT FOR SSR TO SET 
;GET TSSR 
3SET UP EXPECTED 


sARE THEY EQUAL (CORRECT) 


BR, IF CORRECT STATUS 


CsCLP1 


:"TSSR INCORRECT AFTER ss COMMAND 


. WORD 
. WORD 


;LOOP ON ERROR, IF FLAG SET 


sREAD XSTO CONTENTS 
+SET UPR EXPECTE 


TRAP 


CSERHRD 
508 


T38WRT 
PKTSSR 


CsCLP1 


?) 
sSET THE WRITE LOCK ERROR BIT (xXSTO) 


sWAS THE BIT SET 
BR, IF IT WAS (G 


000 ) 
;"WRITE LOCK ERROR BIT NOT SET” 


TR 


CSERHRD 
509 
T38WLE 
EXPREC 


gery Wags TK-25 FRT Re a 


7368 044450 


7369 044452 
7370 
7371 044456 


043510 


046162 
000001 


000004 
016644 


000000 
000100 
045772 
012746 000001 


000004 
043510 


045740 
012746 000001 
010600 


000004 
043510 


7403 044604 
7404 044606 
7405 044610 


J15 


MACRO M1200 20-APR-84 08:12 PAGE 118-5 


4503: CKLOOP 
JMP 2s 
5008: PRINTF @T38MS6 
510$: JSR PC,SOFINIT 
bcs 520% 
MOV RO,R1 
ERROF ERRNO, SFIERR, SF IMSG 
5208: 
MOV TSSRCRS),R3 
BIT R3,00FL 
BEQ 550$ 
PRINTF @T380FL 
JMP 2s 
550$: PRINTF @&T380NM 
JMP es 
63%: 
64%: EXIT TST 


3¢ 

sLOCAL TEXT MESSAGES FOR TEST 
ge 

sLOCAL STORAGE FOR THIS TEST 
ge 


t¢ 
sLOCAL STORAGE FOR THIS TEST 
g° 


TTION2: -WORD O 
TVSAV2: .WORD 0O 
TPSAV2: .WORD 0 


sLOOP IF SELECTED 


TRAP 
3GO BACK TO MENU 
sTELL’EM WHAT TO DO 
MOV 
MOV 
MOV 
TRAP 


ADD 
s00 SOFT INIT OF CONTROLLER 
sB8R IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR ee 


- WORD 
- WORD 
IS ORIVE OFF-LINE 
sLOOK AT THE OFF-LINE BIT 


sBR, IF ORIVE IS ON-LINE 
s“ORIVE IS NOW OFF-LINE” 


sRETURN TO MENU 


s“DRIVE IS NOW ON-LINE” 


sRETURN TO MENU 


sLEAVE TEST 


SEQ 191 
CsCLPi 


@T38MS6, -( SP) 
#1, -(SP) 
sP 


@T380FL.-(SP) 
#1, -(SP) 
SP.R 


2RO 
CSPNTF 
04,SP 


@T38ONM, -( SP) 
#1, -(SP) 

SP RO 

CSPNTF 

@4,SP 


CsExIT 
L10064-. 


sWORD SET IF SUPERVISOR TTI INTER OFF 


sSAVE TTI VECTOR 
sSAVE TTI PRIORITY 


FEST". "MaROaL “EnFERVENT ON” 


045400 


000000 
140006 
044630 
000000 
000012 

000 

000 
000000 
000000 
000000 


140004 
045330 
000012 
044636 
000000 
000400 
000000 
140412 
000000 
000000 
000000 


140005 
000000 


000000 
000400 


123 


164 


K1i5 
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T36DLY: .WORD 0O 
T38PACKET: 
. WORD 140006 
-WORD T38TAD 
-WORDB O 
. WORD 10. 
T38TAD 
T38BSO: .BYTE O 
T36BS1: .BYTE O 
T38BS2: .WORD 0O 
-WORDB O 
T38BFR: .BLKW 150. 
T38EB: .WORD 
.BLKB 10-<. - TUV2AE7> 
T38PKe: 
. WORD 140004 
. WORD T38DTA 
-WORDB O 
WORD 10. 
T38DTA: 
-WORD T36BFR 
-WORDB O 
-WORDB 256. 
T38EAI: .WORD 0 
-BLKB 10-<, - TUV2AE7> 
T38PK3: .WORD 140412 
-WORD O 
-WORD O 
.WORD O 
-WORDB O 
3 
;sWRITE TAPE PACKET 
: 
-BLKB 10-<, -TUV2AE7> 
T38PK4: .WORD 140005 
T36WR: .WORD O 
-WORDB O 
T38SIZ: .WORD 256. 


3° 
s;LOCAL TEXT MESSAGES FOR TEST 


141 T38NE: 


-ASCIZ 


sDELAY COUNTER FOR TEST 


3 COMMAND 


sWRITE SUBSYSTEM MEM. CMD, 


PACKET FOR TEST 


ACK ,CvC=1 


sADORESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


s CHARACTERISTICS 
sBSELO BY 
s;BSEL1 BY 


DATA BLOCK 
TE 
TE 


sMESSAGE BUFFER 
s;END OF BUFFER ADDRESS 


3; COMMAND 


sWRITE CHARA. 


PACKET FOR TEST 


MEM. CMND., 


ACK ,CvC=1 


sADDRESS OF SELECT DATA BLOCK 
sSTARTING VALUE OF BLOCK SIZE 


sSELECT DO. 


sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sEAI BIT 


sREWIND AND UNLOAD COMMAND 


sNOT USED 
sNOT USED 
sNOT USED 
;NOT USED 


; 
sSIZE OF 


ATA BLOCK 


wORD 


sWRITE, ACK, CvC=1 COMMAND 
ADDRESS OF WRITE BUFFER 
sMORE ADDRESS OF WRITE BUFFER 


RECORD 


‘Stand-alone Manual Intervention Not Executed’ 


SEQ 192 


Feet S. MaROaL “InFERVENT TON: 


000000 


012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 
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. WORD 
- WORD 


3° 
;LOCAL STORAGE 
3 - 


T38DAT: 
T38REST: 


3¢ 


Lio 
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*‘TSSR Not Correct After WRITE, With WRITE PROTECT On’ 
‘WRITE LOCKED Bit Not Set In XSTO’ 


‘WRITE LOCK ERROR Bit Not Set In XSTO, After Attempted WRITE’ 


‘SNSA ERROR Drive Is Stiil ON-LINE 


@NSA Drive Is Now ON 


-LINE’ 


@NSA Set Drive To On-line and At Or Beyond BOT’ 


‘SNA Drive Ie Now OFF-LINE’ 


SNSA Drive Should Now Rewind and Go Off-line’ 


'SgNSA Front Panel On-line/Off-line Switch Test’ 
‘Contents Of TSSR Incorrect After REWIND And RELEASE’ 
‘SNBAType RETURN To Return To 

‘Is Write-Protected Tape Mounted’ 

‘@NSA Drive Is Write Protected’ 

‘Manuel Intervention’ 


1$,2%,5%,6%,7$% 


10%, 


+ hae ype OPERATION FROM FOLLOWING OPTIONS:’ 


f2unro 


FOR THIS TEST 


0 


@T38PACKET,R1 
#140206 ,,(R1)+ 
@T38TAD,CR1)>+ 
CR1)-+ 
6.,(R1)>+ 
CR1)+ 

CR1)>+ 

(R1) 

PC 


Display This Menu’ 

Rewind and Unload Command Test’ 

Write Protect Test’ 

Front Panel On-line/Off-line Switch Test’ 
Return to Diagnostic Supervisor’ 


sLOGICAL RESPONSE TO QUESTION 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1 
sADDRESS OF ot 


sSIZE OF DATA BLOCK IN BYTES 
;CLEAR BSELO AND BSEL1 
sCLEAR SEL2 

;CLEAR DATA AREA 

;RETURN 


6 
sTHIS ROUTINE PRINTS THE CONTENTS OF 
sTHE 256 BYTE MESSAGE BUFFER RETURNED BY THE 


3; TUV-O5. 
a 
3; INPUT: 


3 
F RO 
3 R1 


LOW ORDER ADDRESS OF MESSAGE BUFFER 
HIGH ORDER ADDRESS OF MESSAGE BUFFER 
; NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


SEQ 193 


FEST" S. "NaROal “ENTER VENT TON 


2 


003102 


020270 
047552 
125252 


170377 


177760 


045312 


047552 
000001 


047526 
000003 


9108; 


913%: 
9118: 


912%: 
915$: 


SAVREG 
MOV 


R 
PRINTX 


M15 
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RO,RS 

K TENABLE 
910$ 

R1 
R1,R3 
RO 


Ri 
@T38ASO,R1,R5 


PRINTX @T38AS1 
MOV RS,R1 

MOV R3,RO 

BEQ 913% 

JSR PC, SETMAP 
MOV oRS 

MOV RS, T38CNT 
MOV CRS),R4 
CMP 0125252 ,R4 
BEQ 912$ 

MOV R4,R3 

BIC #170377,R4 
CLC 

ROR R4 

ROR R4 

ROR Ad 

ROR R4 

BIC #177760,R3 
ADD R4,R 

MOV R3,(RS)+ 
CMP RS, @T38EB 
BNE 911$ 

MOV T38CNT,RS 
MOV 


#1,R4 
PRINTX #@T38ASN,R4,(R5)+ 


sSAVE THE REGISTERS 

sSAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 28K? 

sBR IF YES 

sSET HIGH ORDER ADDRESS TO 0 
sSAVE HIGH ORDER ADDRESS 

sSHIFT BIT1S 10 C BIT 

sSHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


;COPY LOW ORDER ADDRESS 

;COPY HIGH ORDER ADDRESS 

38R IF NOT ABOVE 28K 

sSETUP PAR ADDRESS IN RO 

3GET PAR FORMAT ADDRESS ABOVE 28K 
sHOLD ADDRESS 

;GET BUFFER ENTRY 

sCHECK FOR NO LOAD CONDITION 
;68R, IF BUFFER WASN'T LOADED 
;MAKE COPY 

sONLY BITS 11,10,9 AND 8 ARE SAVED 
;CLEAR CARRY 

311 TO 10 BIT POSITION 

310 TO 9 BIT POSITION 

3:9 TO 8 BIT POSITON 

3&6 TO 7 BIT POSITION 

;ONLY BITS 3,2.1 AND O ARE SAVED 
:"OR'EM TOGETHER 

sPUT BACK IN BUFFER 

sEND OF BUFFER YET 

;8R, IF NOT AT END YET 


BAC 
sSTART BYTE NUMBER AT ONE 


SEQ 194 


) 
@T38ASO, -(SP) 
03, -(SP) 

SP ,RO 


C$PNTX 
#10,SP 


@T38AS1, -(SP) 
#1,-C(SP) 
SPR 


CSPNTX 
04,SP 


CRS)+, -CSP) 
R4,-CSP) 
@T38ASN, -CSP) 
#3, -(SP) 

SP ,RO 

CSPNTX 


TESTS. "SafiOal "ENTER VEN TON” 


000010 
0475S2 


Ni5 
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ADD #10,SP 
CLR T38CNT ;CLEAR COUNTER 
BR 921$ sSKIP OTHER PRINT 
9208: PRINTX #T38ASC,R4,(R5S)>+ sPRINT THE CONTENTS OF MEMORY BUFFER 
MOV CRS)+,-CSP) 
MOV R4,-CSP) 
MOV @T38ASC,-CSP) 
MOV #3,- SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD #10,SP 
921$: INC T38CNT ;BUMP COUNTER 
INC R4 sNUMBER OF THE NEXT 
CMP R4,4128. sDONE ALL YET ? 
BGT 50$ ;BRANCH IF ALL DONE 
000004 CMP T38CNT , 4 sDONE FOUR YET 
BEQ 925% 3;68R, IF THREE DONE 
BR 920$ 3KEEP GOING 
9255: CLR T38CNT ;CLEAR COUNTER 
BR 915$ sPRINT WITH NEW LINE 
50$: RTS PC sRETURN 
045 T38ASO: .ASCIZ ‘sSNA Message Buffer Address = #01805‘ 
045 T38AS1: .ASCIZ ‘sSNA Message Buffer Contents:’' 
040 T38ASC: .ASCIZ ‘SA S#D48A: 803‘ 
04S T38ASN: — ‘SNSA BytesD48A: 803’ 
T38CNT: .WORD ;COUNTER FOR PRINT 
ENDTST 
L10064: 
TRAP CSETST 


ZTKFA TK-25 FRT END FUNC 62 
EST 6: CONFIGURATION TYPEOUT 


002170 
003100 
002162 
051003 
051450 
017410 
021404 


050220 
000001 


050220 
016644 


B16 
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002162 


-SBTTL TEST 6: CONFIGURATION TYPEOUT 
_— TEST MUST BE STARTED AS FOLLOWS: 


VAT THE DIAGNOSTIC SUPERVISOR PROMPT “DR>~ 
s TYPE te Sinan whet chee 

6 = =>— pweween ccesesnaeseneesnconse 

i 


Q 

sTHIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 

sTHE CONFIGURATION OF THE CONTROLLER MODULE AND TK25 SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 

é 

: 


3 
s 1.0 MICROCODE REVSION LEVEL OF THE CONTROLLER, 
: 2.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 


: 3.0 UNIT SELECT CODE AND STATE (ONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
‘ OF EACH CONNECTED TRANSPORT. 
‘ 


4 
sTHE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 


PRESENT, 
RROR AND ATTEMPT TO FIND THE 

(BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, Erc. ). 
sESINCE a CONTROLLER CAN ONLY ACCESS UNIT O IF IT IS IN “ST 
sMODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 
iWRITE SuBSYSTEN MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS. } 
8 


‘ 

sTHIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
sDIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
sSELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
sREENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 

3 


BGNTST 
CLR FATFLG rite FATAL ERROR’ FLAG 
CLR KTFLG sHOLD OF KT11 
TST TSTCNT Ts THIS FIRST TEST IN SEQUENCE ? 
BEQ 108 sBR, IF FIRST TEST 
MOV @TSONE ,RO s“TEST NOT EXECUTED” 
BR 11% sJUMP OUT OF TEST IF NOT 

108: MOV @TSTS9ID,RO sTEST ID MESSAGE 

11%: JSR PC, TSTSETUP s00 THE COMMON SETUP 
JSR PC, CHKMAN sIS MANUAL INTERVENTION ALLOWED? 
ecs 158 s6R, IF MANUAL INTERVENTION ALLOWED 
JMP 64% sJUMP TO OUT IF NOT 

15%; cmp @1,TSTCNT 11S THIS THE FIRST TEST IN SEG 
BEG 208 s8R, IF FIRST TEST 

~ JMP 64% sJMP IF IT WASN'T 
JSR PC,SOFINIT 300 SOFT INIT OF CONTROLLER 
cs 25% s8R IF SOFT INIT © OK 


SEQ 1% 


GELH a. "Bore rEBAa YBN Wie 861 


013746 


050730 
010332 


050730 
010332 
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508: 
1308: 


1408; 


1508: 


1908; 


MOV 
ERROF 


MOV 
PRINTX 


8 
PRINTX 


C16 
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RO,R 
ERAND, SFIERR, SFIMSG 


@TS9IPK2 RE 
PC ,WRICHR 
508 


RO,R1 
ERRNO , WRTMSG. SF IMSG 


T39BFR+4,R1 
#177700,R1 
R1,T39RL 
@TSOMCL , TSORL 


PC, SOF INIT 
1408 


RO,R1 
ERRNO, SF IERR, SF IMSG 


OTS9PK2 ,R4 
PC, .WRTCHR 
1508 

RO,R1 

ERRNO, WRTMSG , SF IMSG 


UNITN 


TSSRCRS),R1 
@OFL ,R1 

200% 

@T390F 2,UNITN 


sSAVE CONTENTS OF TSSR 

sDEVICE FATAL ERROR st P 
TYORO 
. WORD 


. WORD 
sLOOP IF SELECTED 
TRAP 


SEQ 197 


sSUBROUTINE NEEDS PACKET ADDRESS 


sWRITE CHARACTERTST I9C ss 


. wos 20 
. WORD 
sLOOP IF SELECTED 


TRAP 
sPICK UP THE RES. BYTE CNTR AREA 
sONLY LEAVE MICROCODE REV LEVEL 


sLOAD UP REV LEVEL 


s “MICROCODE REVISION LEVEL *O00xxx” 
MOV T3 


MOV 
MOV 


MOV 
TRAP 
ADO 
300 SOFT INIT OF CONTROLLER 


s8R IF SOFT INIT = OK 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL ERROR DURING INIT 
TRAP 


. WORD 
sLOOP IF SELECTED 
TRAP 


CSERMRO 
602 


WRTMSG 
SF IMSG 


CsCLPi 


CsCLP1 


sSUBROUTINE NEEDS PACKET ADORESS 


s ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSR 

sWRITE CHARACTERISTISC FAILED 


sLOOP IF SELECTED 
sSET TO DRIVE O 
sGET TSSR STATUS 


sCHECK FOR OFF-LINE 
sBR, IF ORIVE IS ON-LINE 


TRAP 


s"ORIVE NUMBER Xx 135 OFF-LINE” 


MOV 


CSERHRO 
604 


WRTMSG 
SF IMSG 


Csc.Pl 


UNITN, “A SP) 


CZTKFA TK-25 FRT END FUNC 62 
TEST 6: CONFIGURATION TYPEQUT 


7691 
7692 


050042 


050240 


051062 


JMP 
2008: PRINTX 


MOV 
BIT 


BNE 
PRINTX 


BR 
2108: PRINTX 


BR 
63%: PRINTX 


64%: EXIT 
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638 
@T390N2,UNITN 


T39BFR+6,R1 
#6IT2,R1 


2108 
@TSOWPN,UNITN 


633 
@TSOWRT ,UNITN 


63% 
OTSONFL 


TsT 


a 
sLOCAL TEXT MESSAGES FOR TEST 


sLOCAL STORAGE FOR THIS TEST 


T39DLY: .WORD 
BLK 
T39PACKET: 
* WORD 
T39TAD: - 
1398SO: .BYTE 


0 
10-<, -TUV2AE7> 


140006 
T3S9TAD 
0 

10. 


te) 


SEQ 198 
MOV @T390F 2, -( SP) 
MOV #2, -(SP) 
MOV SP RO 
TRAP CSPNTX 
ADO 06 ,SP 


300 NOT TRY TO GET ANYMORE INFO. 
s"ORIVE NUMBER XxX IS ON-LINE” 
UNITN, -( SP) 


MOV 

MOV @T390N2, -( SP) 
MOV 2, -(SP) 
MOV sP 


RO 
TRAP CSPNTX 


ADO . 
sREAD EXTENDED STATUS (XSTO) 
sIS ORIVE WIITE PROTECTED 
sBR, IF WRITE PROTECTED 
s"ORIVE NUMBER IS NOT ges 


UNITN, -( SP) 

MOV @T3S9WPN, -( SP) 
MOV @2,-C(SP) 
MOV SP .RO 
TRAP CSPNTx 
ADO - 

:S*IP OVER 

:"DRIVE NUMBER Xx IS WRT PRO” 
MOV UNITN, -( SP) 
MOV @TSOWRT, -(SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADO 06 .,SP 

;68R, IF NO MORE DRIVES 

sNEW LINE 

MOV @TSONFL,. -C SP) 
MOV @1.,-(SP) 
MOV 


SP RO 
TRAP CSPNTX 
ADO @4,SP 


TRAP CsExIt 
«WORD L10065.-. 


sEXIT THIS SECTION 


sDELAY COUNTER FOR TEST 


sCOMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM MEM. CMD, ACK,CvC-1 
sADDRESS OF CHARACTERISTICS BLOC¥ 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
:B8SELO BYTE 


rest". 


000 


140005 


"CoRP 1GURAT YON’ Y¥6ed6r 
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T398S1: .BYTE 0 
T398S2: .WORD O 
. WORD 0 
139BFR: .B6LKW 150. 
-BLKB 10-<,-TUV2AE7> 
T39PK2- 
. WORD 140004 
-WORD TS3S9DTA 
-WORD O 
-WORD 10. 
T39OTA: 
.WORD T39BFR 
-WORD O 
-WORD 256. 
T39EAI: .WwORD O 
.BLKB 10-<. -TUV2AE7> 
T39PK3: .WORD 140012 
. WORD 


é 
sWRITE TAPE PACKET 
é 
KB = 10-<. -TUV2AE7> 
140005 


BL 
T39PK4: .WORD 
TS9OWR: .WORD 

-WORD O 
T39SIZ: .WORD 256. 


3° 
s;LOCAL TEXT MESSAGES FOR TEST 
g°- 


-ASCIZ ‘sn’ 


~ 
: 
~< 
b 
Ww 
oO 
~ 
N 


T3ORL: .WORD O 


3° 
sLOCAL STORAGE FOR THIS TEST 
Q - 


sBSEL1 BYTE 
s6SEL1 WORD 
sDATA 

iMESSAGE BUFFER 


sCOMMAND PACKET FOR TEST 
sWRITE CHARA. MEM. CMND., 
sADORESS OF SELECT DATA BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sSELECT DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sEAI BIT WORD 


sMESSAGE BUFFER RELEASE COMMAND 
sNOT USED 


s;WRITE, ACK, CvC*1 COMMAND 
sADORESS OF WRITE BUFFER 
sMORE ADORESS OF WRITE BUFFER 
:SIZE OF RECORD 


‘Stand-alone Conf oe. ion Ry erg Not Executed’ 
@SNBA Drive Number sD28A 

@NSA Drive Number sDOsA is On-Line’ 

SNSA Drive Number SD28A Ie Write Protected’ 

SNSA Drive Number sD28A Is NOT Write Protected’ 
S@NBA Controller Microcode Revision Level =#02' 


ff-Line’ 


ACK ,CvC*1 


SEG 199 


74 TKFA TK - 


ST 6: 


7783 
7784 


7785. 


c IGUR 


051410 
051412 
051412 


RATION. YYPEQUT 


000000 


104401 


157 
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T39DAT: .WORD 0O sLOGICAL RESPONSE TO QUESTION 
T39OREST: 
SAVREG sSAVE THE REGISTERS 
MOV @TSOPACKET ,R1 sSTART OF THE PACKET 
MOV 140006, (R1)> sWRITE SUBSYSTEM MEM. WITH ACK,CVC=1 
MOV @TS9TAD,CR1)> sADDRESS OF DATA BLOCK 
CLR CR1iD> sEXTENDED ADDRESS 
MOV 6. ,(R1)> }SIZE OF DATA BLOCK IN BYTES 
CLR (R1)> sCLEAR BSELO AND BSEL1 
CLR (R1)-+ sCLEAR SEL? . 
CLR CR1) sCLEAR DATA AREA 
RIS PC 3RE TURN 
3¢ 
sLOCAL TEXT MESSAGES FOR TEST 
g°¢ 
156 TST39ID: even -ASCIZ ‘Configuration Typeout’ 
ENOTST 
L10065: 
TRAP CseTsT 


ZTKFA TK-25 FRT END FUNC 02 
EST 7: SCOPE LOOPS 


002170 
003100 
002162 


052711 
052756 
017410 
021404 


052174 
000001 


052174 
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002162 


G16 


SEG 201 
-SBTTL TEST 7: SCOPE LOOPS 


3° 
sTHIS TEST MUST BE STARTED AS FOLLOWS: 


4 

sAT THE DIAGNOSTIC SUPERVISOR PROMPT "DR>” 
sTYPE “START/FLAG:PNT/TEST: 7/PASS: 1” 

6 =— mmm oeosesoceencoesesecesces 


THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 

LOOPS” USEFUL FOR DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 

THE CONTROLLER MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR” OR “LOOP ON TEST ey Bo FACILITIES DON'T 

SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 

TESTS (I.E, THE ore MAY NOT BE RESPONDING TO A REGISTER 

ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 

SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 

HARDWARE DIP SWITCHES). THE FOLLOWING ME’ OF SCOPE LOOPS ARE 

AVAILABLE : 

CODE SCOPE LOOP 
HELP. DISPLAY THIS MENU. 
TSBA READ ACCESS 


TSSR READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 
TSOB HIGH BYTE WRITE ACCESS 
TSOB LOW BYTE WRITE ACCESS 

TSSR BYTE WRITE (SELF-TEST) 
RETURN TO DIAGNOSTIC SUPERVISOR 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN. TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


oe oe G+ oe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 61) Ge Ge Ge Ge Ge Ge Ge Ge GF Ge 
NOUS WMPrO 


BGNTST “7 
CLR FATFLG sCLEAR FATAL ERROR FLAG 
CLR KTFLG sHOLD OF KT11 
TST TSTCNT sIS THIS FIRST TEST IN RUN ? 
BEQ 18 sCON/INUE TEST IF FIRST IN RUN 
MOV @T40NE ,RO +"TEST NOT EXECUTED” 
BR 100% sJUST EXIT IF NOT 
1%; MOV @TST40ID,RO sTEST ID MESSAGE 
1008: JSR PC, TSTSETUP sD0 THE COMMON SETUP 
JSR PC, CHKMAN +SEE IF MANUAL INTERVENTION ALLOWED 
BcS 102% sCARRY SET IF INTERVENTION ALLOWED 
JMP 64% sEXIT IF NO MANUAL INTERVENTICH 
102%: CMP #1, TSTCNT sWAS THIS THE FIRST TEST I% SEQ 
BEQ es ;BR, IF IT WAS 
JMP 64% 3JMP TO END OF TEST 


H16 
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7865 051562 004737 016644 2s: JSR PC, SOF INIT 3:00 A SOFT INIT 

7866 051566 103405 BCS S$ sBRANCH IF OK 

7867 051570 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

7871 051572 ERRDF ERRNO, SFIERR,SFIMSG sREPORT FATAL ERROR 
051572 104455 TRAP CSEROF 
051574 001275 «WORD 701 
051576 003550 -WORD SFIERR 
051600 011666 .WORD  SFIMSG 

7872 051602 012700 052206 S$: MOV @SCMENU,RO sMENU OF SCOPE LOOP SELECTIONS 

7873 051606 012701 000010 MOV #8. ,R1 sMAXIMUM ALLOWED SELECTION 

7874 051612 004737 021162 JSR PC ,GETSEL sGO GET THE OPERATORS SELECTION 

7875 051616 005700 TsT RO sWAS ZERO SPECIFIED ? 

7876 051620 001760 BEQ es sREPEAT MENU IF YES. 

7877 051622 010004 3$: Vv RO,R4 sSAVE THE MENU SELECTION 

7878 051624 SETPRI @PRIO7 sRAISE THE PRIORITY 
051624 012700 000340 @PRIO7,RO 
051630 104441 TRAP CsSPRI 

7879 051632 005037 052 CLR TTION sASSUME INTERRUPTS ARE ENABLED 

7880 051636 032737 000100 177560 BIT #100, 8@TTICSR sARE TTI INTERRUPTS ON ? 

7881 051644 001005 BNE 4% sBRANCH IF YES 

7882 051646 005237 052 INC TTION sFLAG SET IF INTERRUPTS OFF 

7883 051652 052737 000100 177560 BIS #100,@eTTICSR sENABLE INTERRUPTS 

7884 051660 012701 000060 4%; MOV @TTIVEC,R1 sSTART OF TTI VECTORS 

7885 051664 011137 052202 MOV CR1), TVECSAV sSAVE THE CURRENT TTI VECTOR 

7886 051670 012721 052106 MOV #60$,(R1)> sSET NEW INTERRUPT ROUTINE 

7887 051674 011137 052204 MOV (R1), TPRISAV sSAVE THE VECTOR PRIORITY 

7888 051700 012711 000340 MOV @PRIO7,CR1) sUSE PRIORITY SEVEN 

7889 051704 SETPRI #@PRIOO sLOWER INTERRUPT BR LEVEL 
051704 012700 000000 MOV @PRIOO,RO 
051710 104441 TRAP CsSPRI 

7890 051712 006304 ASL R4 sCONVERT TO WORD OFFSET 

7891 051714 000174 051720 JMP 863(R4) + JUMP TO PROPER LOOP 

7892 051720 051 6$: -WORD 2% ;RETYPE THE MENU 

7893 051722 051740 -WORD 10% sTSBA READ ACCESS 

7894 051724 051746 -WORD 158 sTSSR READ ACCESS 

7695 051726 051754 -WORD 20% sTSSR WRITE ACCESS 

7896 051730 051770 -WORD 25% ;1SO8 HIGH BYTE WRITE ACCESS 

7897 051732 052004 -WORD 30% sTSOB LOW BYTE WRITE ACCESS 

7898 051734 052020 -WORD 35% sTSSR BYTE WRITE (SELF-TEST) 

6 be 051736 052174 -WORD 65% sLEAVE THE TEST 

7901 

7902 051740 10%; 

7903 051740 016500 177776 12s: MOV TSBACRS),RO sREAD TSBA REGISTER 

hae 051744 000775 BR 12% sLOOP UNTIL HALTED 

7906 051746 158: 

7907 051746 016500 000000 18%; MOV TSSRCRS),RO sREAD TSSR REGISTER 

7908 051752 000775 BR 18% sLOOP UNTIL STOPPED 

7910 

1 

7911 051754 004737 021100 208: JSR PC .GETPAT sREAD THE DATA PATTERN 

7912 051760 010001 MOV RO,R1 sDATA PATTERN FOR LOOP 

7913 051762 010165 000000 228: MOV R1,TSSRCRS) sWRITE DATA TO TSSR 

in 051766 000775 BR 22% sLOOP 


I16 
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7917 051770 258%: 

7918 051770 004737 021100 JSR 4% GETPAT sREAD THE DATA PATTERN 

7919 051774 010001 MOV Ri SDATA PATTERN FOR LOOP 

7920 051776 110165 177777 27s: MOVB +t TSOBHCRS ) sWRITE THE DATA TO TSOB, HIGH BYTE 

ist 052002 000775 BR 278 sLOOP UNTIL STOPPED 

7923 

7924 052004 308: 

7925 052004 004737 0621100 JSR PC ,GETPAT sREAD THE DATA PATTERN 

7926 052010 010001 MOV RO,R1 sDATA PATTERN FOR LOOP 

7927 052012 110165 177776 328: MOVB R1, TSOBCRS) sWRITE DATA TO TSSR, LOW BYTE 

rose 052016 000775 BR 32$ 3LOOP UNTIL HALTED BY OPERATOR 

7930 052020 004737 021100 358: JSR PC ,.GETPAT sPICK UP THE PATTERN FROM OPR 

7931 052024 010001 MOV RO,R1 . sSTORE IN R1 

7932 052026 110165 000000 378: MOVB R1, TSSRCRS) sWRITE BYTE TO TSSR, THIS STARTS MDIAG 

7933 052032 DELAY 250 sWAIT 2500US 
052032 012727 000250 MOV @250.,(PC)+ 
052036 000000 . WORD 
052040 013727 002116 MOV LSOLY,CPC)-+ 
052044 000000 -WORD O 
052046 005367 177772 OEC - PC) 
052052 001375 BNE 
052054 005367 177756 DEC “230 PC) 
052060 001367 BNE 

7934 052062 036527 000000 000200 BIT TSSRCRS),@SSR sCHECK FOR READY SET, IF A TRAP occurs 

7935 3THE TSSR WAS “NOT BACK TO THE BUS” 

7936 3IN TIME. 

7937 052070 001356 BNE 37% 3BR, IF SSR WAS SET (GOOD) KEEP LOOPING 

7941 052072 ERRDF ERRNO, T40NSR,SFIMSG ;PRINT DEVICE FATAL ERROR MESSAGE 
0S2072 104455 TRAP CSEROF 
052074 001276 wORD 702 
052076 052772 WORD T40NSR 
052100 011666 WORD SFIMSG 

es | 052102 000137 000200 JMP 200 3GO TO SUPERVISOR ETC. 

7944 

7945 3¢ 

a sPROCESS CONSOLE INTERRUPTS 

g= 

7948 

7949 052106 010046 608: MOV RO, -(SP) sSAVE WORK REGISTER 

7950 052110 113700 177562 MOVB SOTTIBFR,RO ;GET THE OPERATOR INPUT 

7951 052114 042700 000200 BIC 200 ,RO :STRIP OFF PARITY BIT 

7952 052120 122700 000015 CMPB #15,R0 3IS IT A CARRIAGE RETURN ? 

7953 052124 001021 BNE 61$ 3JUST EXIT IF NOT 

7954 052126 012766 051562 000002 MOV 02% ,2(SP) sRETURN TO MASTER MENU 

7955S 052134 005066 000004 CLR 4(SP) sFORCE PRIORITY ZERO 

7956 052140 013737 052202 000060 MOV TVECSAV , @@TTIVEC sRESTORE SUPERVISOR VECTOR 

7957 052146 013737 052204 000062 MOV TPRISAV ,@OTTIVEC+2 sRESTORE SUPERVISOR PRIORITY 

7958 052154 005737 052200 TST TTION sARE SUPERVISOR INTERRUPTS ENABLED ? 

7959 052160 001403 BEQ 618 sBRANCH IF YES 

7960 052162 042737 000100 177560 BIC #100, @e@TTICSR 3TURN OFF TTI INTERRUPTS 

7961 052170 012600 618: MOV (SP)+,RO sRESTORE REGISTER 

se | 052172 000002 RTI ;RETURN FROM INTERUPT 


7964 052174 64%: 


ery. TK - Kn SBe Coobe” FUNC #2 


80 
8031 


052174 
052174 
052174 104432 
052176 000664 


052200 000000 
052202 000000 
052204 000000 


052711 123 
756 123 

052772 123 

053062 

053062 

053062 104401 

053064 


052311 
052546 
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052337 
052605 


63%: 
65$: EXIT TST 


3° 
sLOCAL STORAGE FOR THIS TEST 
g= 


TTION: -WORD O 
TVECSAV: -WORD O 
TPRISAV: -WORD O 


SEQ 204 


sEXIT THE TEST 
TRAP CSExIT 
«WORD 1L10066-. 


sWORD SET IF SUPERVISOR TTI INTER OFF 
sSAVE TTI VECTOR 
sSAVE TTI PRIORITY 


3° 
sMENU FOR OPERATOR INPUT FOR SCOPE LOOPS 


.EVEN 
SCMENU: ~WORD 1$,2$,3%,.4%,5%,6$ 
-WORD 7$,8%,10%,11%,12$,0 
1%: -ASCIZ <12>' SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:’ 
2s: -ASCIZ <12>’ c¢] Display This Menu’ 
3%; -ASCIZ ' 1 TSBA Read Access’ 
4$: -ASCIZ ' 2 TSSR Read Access’ 
5$: -ASCIZ ' 3 Initialize CTSSR Write Access)’ 
6$: -ASCIZ ' 4 TSOB High Byte Write Access’ 
79 ASCIZ * 5 TSOB Low Byte Write Access’ 
8$: ASCIZ ' 6 TSSR Write Byte (Self Test)’ 
108: -ASCIZ ' 7 Return to Diagnostic Supervisor’ 
11%: AGI ** 
12%: -ASCIZ ‘Type RETURN To Stop Scope Loops 
T4ONE: .ASCIZ ‘Stand-alone yee Loops Not y 
TST40ID: -ASCIZ ‘Scope Loops’ 
T40ONSR: — ‘SSR Failed to To Set After TSSR Write Byte And 10ms Delay’ 
EV 
ENOTST 


-SBTTL HAROWARE PARAMET 


"THE HARDWARE PARAMETER CODING 


MACROS ARE NOT EXECUTED AS MAC 
INTERPRETED BY THE SUPERVISOR 


WITH THE OPERATOR, 
BGNHRD 


L10066: 
TRAP CseTsT 


ER CODING SECTION 


SECTION CONTAINS MACROS 


THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 


HINE INSTRUCTIONS BUT ARE 
AS DATA STRUCTURES. 


THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 


K16 
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HARDWARE PARAMETER CODING SECTION 
053064 000015 «WORD L10067-L$HARD/2 
eose 053066 L$HARD: : 
8033 053066 GPRMA HPM1,0,0,160000,177776, YES sGET TSBA/TSOB REGISTER ADDRESS. 
053066 000031 -WORD TSCODE 
053070 053120 -WORD HPM1 
053072 160000 -WORD TSLOLIM 
053074 177776 -WORD TSHILIM 
8034 053076 GPRMA =HPM2,2,0,0,776, YES sGET VECTOR ADDRESS. 
053076 001031 -WORD TSCODE 
053100 053147 -WORD  HPM2 
053102 000000 -WORD TSLOLIM 
053104 000776 -WORD TSHILIM 
8035 053106 GPRMD = 9HPM3,4,0,340,0,7, YES ;GET INTERRUPT PRIORITY. 
053106 002032 -WORD TSCODE 
053110 053173 -WORD  HPMS 
053112 000340 «WORD 340 
053114 000000 -WORD TSLOLIM ’ 
053116 000007 -WORD TSHILIM , 
8036 053120 § ENOHRD 
-EVEN 
053120 L10067: , 
8037 053120 104 105 126 HPM1: -ASCIZ ‘DEVICE ADDRESS ( TSSR) ‘ 
8038 053147 111 116 124 HPM2: -ASCIZ ‘INTERRUPT VECTOR 
aoee 053173 111 116 124 HPM3: vg ‘INTERRUPT PRIORITY , 
.EV 


L16 


KFA_TK-25 FR MACRO M1200 20-APR-84 08:12 PAGE 121 
Cee TARE PARAMETER LopING SecTION —— 
eoss .SBTTL SOFTWARE PARAMETER CODING SECTION 
8045 see 
8046 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
8047 3; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
8048 3; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
8049 3; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
8050 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
8051 ; WITH THE OPERATOR. 
8052 -- 
8053 053224 BGNSFT 
053224 000006 .WORD L10070-L$SOFT/2 
053226 LSSOFT:: 
8054 053226 GPRML SPM1,0,-1,YES 3;GET RAM DUMP FLAG 
053226 000130 -WORD TSCODE 
053230 053242 -WORD SPM1 
053232 177777 .WORD -1 
8055 053234 GPRML SPM4,2,-1, YES ; GET ITERATION CONTROL. 
053234 001130 .WORD TSCODE 
053236 053306 .WORD SPM4 
053240 177777 .WORD -1 
8056 : GPRMD SPM6,4,D,7777,0,7777, YES ; GET LOCAL ERROR LIMIT 
8057 ; GPRMD SPM7,6,0,7777,0, 7777, YES ; GET GLOBAL ERROR LIMIT 
8058 053242 ENOSFT 
.EVEN 
053242 10070: 
8059 
8060 
8061 053242 105 116 101 SPM1: .ASCIZ ‘ENABLE CONTROLLER RAM DUMP ON ERROR’ 
8062 053306 111 116 110 SPM4: .ASCIZ ‘INHIBIT ITERATIONS 
8063 053336 120 105 122 SPM6: .ASCIZ ‘PER TEST ERROR LIMIT ' 
8064 053366 120 105 122 SPM7:  .ASCIZ ‘PER UNIT ERROR LIMIT ‘ 
8065 .EVEN 
8066 .SBTTL PATCH AREA 
8067 3° 
oose ;DISPATCH TABLE 
Hy 
pot 3; ##* MOVE TO FRONT OF PROGRAM FOR RELEASE se0 
[= 
8072 
8073 053416 DISPATCH TESTNO 
053416 000007 .WORD 7 
053420 LSDISPATCH:: 
053420 023634 -WORD Tl 
053422 024674 .WORD T2 
053424 026226 -WORD 13 
053426 032160 -WORD T4 
053430 043426 .WORD TS 
053432 047556 -WORD T6 
053434 051500 -WORD 17 
8074 
8075 : 
e076 3; FINALLY A GENEROUS PATCH AREA. 
H 
8078 3; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT?” HACK 
8079 ; DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
H 


8080 
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-WORD T$ 
LSLAST:: 


sSET LAST USED ADDRESS. 


SIZE 


.SBTTL HARD CODED P-TABLE 


; DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 


BGNSETUP 

BGNPTAB 

. WORD 

. WORD 
L10071: 


1 


te) 

L10073-./2-1 
172522 
224 
PRIOS 


SEQ 207 
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SYMBOL TABLE 
ADOSSR 011772 G CsAv_ © 000052 OEBUGN 011464 FATFLG 002170 G HIMEM © 007776 
ADR = 000020 G C#AUTOe 000061 DEVCNT 002166 G FERCM 011554 MOE «1 
AMBTSS 006357 CS8BRK = 000022 DEVDRO 025564 FIFEXP 012022 G HPM1 053120 
ASSEMB= 000010 C*#BSEG= 000004 DEVNRO 0235505 FIFIMS 012074 HPM2 053147 
A1716 = 000003 Cs8BSUB= 000002 OEVNXR 023421 FIF2MS 0121435 HPMS 053173 
BADDAT 0035110 G CS8CEFGe 000045 DEVON 023351 FILLME 020574 IBE =* 010000 G 
BADSSR 016550 G C&8CLCKe 000062 DEVSUM 023514 FNOINT 0041135 Idvu = 000040 G 
BAR = 174402 CS8CLEA= 000012 OFPTBL 002124 G FORCER 002144 G IER = 020000 G 
BENBSW 002174 G Cs8CLOS* 000035 OIAGMC* 000000 FREE 003072 G IFAAT 004154 
BIE * 040000 CS8CLP1* QO00006 OLCYL © 000177 FREEHI 003076 RK 017744 
BITO = 000001 G C8CVEC= 000036 OLONER®= FRESIZ 003074 G INTCPC 017020 
BITOO = 000001 G CSOCLN= 000044 * OLERR © 177730 FUSI 004015 INTFLA 017015 
BITO1 = 000002 G Cs000U" 000051 OLGETS= FSAU =#= 000015 INTMAS 017014 
BITO2 = 000004 G CSORPT*= 000024 OLROHD= 000010 FSAUTO= 000020 INTR 017066 G 
BITOS = 000010 G Cs0u_ = 000053 OLRONH= 000016 FSBGN = 000040 INTREC 002172 G 
BITO4 = 000020 G CsEDIT= 000005 OLSR = 000015 FSCLEA* 000007 INTVEC 017016 
BITOS = 000040 G CSEROF= 000055 UN FsDU = 000016 INTX 004176 
BITO6 = 000100 G CSERHR= 000056 OSBINT 017054 FSEND = 000041 IOKCKI« 
BITO7 = 000200 G CSERRO= 000060 DUADI2 004541 F SHARDe IOKSTP= 000001 
BITOS = 000400 G CSERSF= 000054 OVFLG 003060 G Ferm = 000015 IPRI 002160 G 
BITO9 = 001000 G CSERSO= 000057 003030 FSINIT= 000006 ISR * 000100 G 
BIT1 = 000002 G CSESCA* 000010 EF .CON® G FSP = 000050 IvEC 002156 G 
BIT10 = 002000 G CSESEG= 000005 EF .NEW= 000035 G FSMOD = 000000 IXE = 004000 G 
BIT11 = 004000 G SESUB= 000003 EF .PuRe G FSMSG = 000011 sAU_ = 000041 
BIT12 = 010000 G CSETST= 000001 EF .RES* 000037 G FSPROT= 000021 IsAUTO= 000041 
BIT13 = 020000 G CSExIT= 0000352 EF .STAs G FSPWR = 000017 ISCLN = 000041 
BIT14 = 040000 G CS8GETB= 000026 017677 FSRPT = 000012 Is0u_ = 000041 
BIT1S = 100000 G C8GETWe 000027 ® FSSEG « ISHRD = 000041 
BIT2 = 000004 G CSGMAN= 0000435 ENAINT 017022 FSSOF T= 000005 I8INIT* 000041 
BITS = 000010 G CS8GPHR= 000042 ENVIRN 021534 FSSRV = 000010 IsmMOO = 000040 
BIT4 = 000020 G C8GPLO= 000050 EPRTSW 002146 G FSSUB = 000002 ISMSG = 000041 
BITS = 000040 G CS8GPRI= 000040 EPRT1 005762 FSSw © 000014 I$PROT= 000040 
BIT6 = 000100 G CSINIT= 000011 EPRT2 005672 FSTEST= ISPTAB= 000041 
BIT? = 000200 G CsIN P= EPRTS GDDAT 003112 G IsPWR = 000041 
BITS = 000400 G CSMANI*= 000050 ERCM 011565 002142 G ISRPT = 000041 
BIT9 = 001000 G C8MEM = 000031 ERRHI 002202 G GETPAT 021100 G ISSEG = 000041 
BOE = 000400 G Cs8MSG = 000025 ERRK 017656 GETSEL 021162 G ISSETU=s 000041 
BRINIT 004355 CSOPEN= 000034 ERRLO 002 G GSCNTO= I8SFT = 000041 
BSELO = CSPNTB= 000014 ERRNO = 001276 GSDELM= 000372 IsSRv * 000041 
BSEL1 = 00000 CSPNTF* 000017 ERRVEC= G GSOISP= 00000 IsSuB = 000041 
CHKAMB 016714 CSPNTS= 000016 ERTABE 0033350 GSExCP= 000400 IsTST = 000041 
CHKMAN 021404 G CSPNTX*= 000015 ERTABL 003150 GsHILI= 000002 JtP = 000167 
CHKTSS 017236 CsQIO = 000377 017660 GSLOLI= 000001 KIPARO= 172340 
020154 Cs$ROBU> Ev. = 000004 G G8NO = 000000 KIPARi= 172342 
CKEMAX 020002 CSREFG= 000047 EXBCNT= 000010 GSOFFS= 000400 KIPAR2= 172344 
CKMSG 011212 G CS8RESE*= 000033 EXPBRE 016352 G GSOFSI* 000376 KIPARS= 172346 
CKMSG2 0113532 G CS8REVI= 0000035 EXPD 002176 G sPRMA= 1 KIPAR4* 172350 
CKRAM 010534 G CS8RFLA= 000021 EXPGOT 004431 GSPRMD= 000002 KIPARS= 172352 
CKRAM2 011110 G CsRPT = 000025 EXPGT2 004465 GSPRML« KIPAR6= 172354 
CMPMEM CSSEFG= 000046 EXPMSG 002266 G G$RADA= 000140 KIPAR7= 172356 
CONFIG 020222 CS#SPRI= 000041 EXPREC 016344 G GSRADB= KIPORO= 172300 
COUNT 002254 G CSSVEC= 000037 EXTA 005232 G$RADD= 000040 KIPOR1= 172302 
CSR = 174400 CsTPRI= 000015 EXTEND 005230 GSRADL* 000120 KIPOR2= 172304 
CSRADD 002154 G DAR = 174404 ESEND = 002100 G$RADO= KIPORS= 172306 
CTAB 003116 G DATA 002256 G ESLOAD= 000035 GSxXFER= 000004 KIPOR4= 172310 
CTABE 003150 G DATAFL 015064 FATCHK 020102 G$YES = 000010 KIPORS= 172312 
CTABM 003116 G DATASC 021136 FATERR= 000060 HIADOR= 001400 KIPOR6= 172314 
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KIPOR7= 172316 LSSOFT 053226 G L10061 037544 OS$BGNR= 000001 PROASC 014714 
KTENAB 003102 G LSSPC 002056 G L10062 040034 OSBGNS* 000001 PRIA 014761 
KTFLG 003100 G LssPcPe L10063 040510 Os0U_ = 000001 PST32W 003104 G 
KTINIT 021622 LSSPTP L10064 047554 OSERRT= 000000 PUNIT 022476 
KTOFF 020246 LSSTA 0020350 G L10065 051476 OSGNSW= 000001 PwW.011* 000021 
KTON 020230 t 002134 G L10066 05 OS$POIN= 000001 PwW.013= 000022 
LERRMA 002140 G LSTEST 002114 G L10067 053120 OSSETUs D22= 000020 
LISTAL= 00000 LSTIM 002014 G L10070 053242 PASRPT 022242 NOP = 
LOE = 040000 C LSUNIT 002012 G 110071 PATCH 053436 G PwW.NO1= 000023 
LOOPCN 002164 G L10000 002132 L10073 053454 PATDAT 021134 RDE= 000024 
LOOPCO 012760 L10001 002144 MEMADD 013606 G PC.ERA= 002400 PW.RDR= 000001 
LOOPFL 003114 G L10002 005226 MENASC 0213535 PC. IER* 002000 Pw.ROS= 
LOT == 000010 G L10003 011676 MENERR 021500 PC.NOO= 001000 PW.RFI= 000003 
LSACP 002110 G 110004 011726 MENRES 021402 PC.REL*= 000000 PW.WCT= 000006 
LSAPT 002036 G 110005 011744 MESBFA 002716 G PC .REW= 000400 PW.WFI= 000004 
LSAU 022544 G 110006 011752 MESBFN 014634 PKBCNT= 000006 PW.WFM= 000007 
LSAUT 002070 G L10007 011770 MESHEA 015017 PKHI © 000004 PW.WMI= 000010 
LSAUTO 022750 G L10010 012006 MIMENU 046512 PKLOW © PW.WNP= 000011 
LsCCP 002106 G L10011 012020 MMVEC = PKTADD 007276 PW.WTR= 
LSCLEA 023024 G L10012 012072 MPR = 174406 PKTFRM 007240 P.ACK = 100000 
Lsco 002032 G 110013 012242 MSA.FR= 000006 PKTGET 011730 G P.CMD = 000037 
LSDEPO 002011 G 110014 012756 MSA.NO= 000000 PKTMES 011754 G P.CONT= 000012 
LSDESC 003342 G L10015 013604 MSA.NR= 000004 PKTNEW 0073353 P.CvC = 040000 
LSDESP 002076 G L10016 013626 MSA.VO= 000002 PKTRAM 004643 G P.FMT = 000140 
LSDEvP G 110017 016350 MSGEXP 012010 G PKTSSR 011700 G P.FORM= OOOO11 
LSDISP 053420 G L10020 0:6356 MSGL 012716 PNT © 001000 G P.GETS* 000017 
LSOLY 002116 G L10021 016364 MSGSTA 012202 G PRAMPK 013630 P.IE « 
LSDTP 002040 G L10022 016376 013574 G PRBEXP 016340 P.INIT* 000013 
LSOTYP 002034 G L10023 016420 MS.ATTe 16206 P.MODE* 007400 
L$DuU 022642 G L10024 016446 MS.EXT= 000200 C 016342 P.OPP = 
LSDUT 002072 G L10025 016606 MS.RSD* 000001 PRBTOT 016273 P.POSI*= 000010 
LSDOVTY 003334 G L10026 017116 MS .RSF PRBYTE 015772 G P.READ= 000001 
LSEF 002052 G L10030 022474 MS.RST*= 000010 PRI = G P.SWB = 010000 
LSENVI 002044 G L10031 A se PRIADD 007712 P.WRITe 
LSETP 002102 G L10032 022746 NEWPAS 022176 PRIAO 007762 P.WRTC= 000004 
LSEXP1 002046 G 110033 023022 vy 00 G PRIBXO 007344 G P.WRTS* 000006 
LSEXP4 002064 G L10034 023050 NOINIT 004233 PRIEQU 007612 G 
LSEXPS 002066 G 110035 023312 NOINTR 004117 PRIPKT 007072 G RAMASC 015776 
LSHARD 053066 G L10036 72 NOITS 002136 G PRIRAM 007620 RAMDAT 206 G 
LSHIME 002120 G L10037 026224 021440 PRITAD 010026 RAMER 010636 G 
LSHPCP 002016 G L10040 025134 NP.IR © PRITSS RAMERR 016360 G 
LSHPTP 002022 G 110041 032156 NP .LOO= 000040 PRITO 010076 RAMEXP 016400 G 
L SH 002124 G L10042 026624 -OUT= 000100 PRIXOR 007474 G RAMFHR 014536 
LSICP 002104 G 110043 9027302 NP .WRP= 000020 PRIOO = 000000 G RAMFOR 007650 
LSINIT 021764 G L10044 027510 NSI 004050 PRIO1 = 000040 G RAMHLD 011020 
LSLADP 002026 G L10045 027776 NSINIT 004305 PRIO2 = 000100 G RAMIOP 011024 
LSLAST 053442 G L10046 030520 NUL 004425 PRIOS = 000140 G RAMPD 011075 
LSLOAD 002100 G L10047 043424 NULCR 004426 PRIO4 = 000200 G RAMRSH 011022 
LSLUN 002074 G L10050 032776 NXM == 004000 PRIOS = 000249 G RAMSIZ 002246 G 
LSMREV 002050 G L10051 033544 NXR 003636 PRIO6 = 0003C0 G RAMTAD 016366 G 
LSNAME 002000 G L100S2 0324240 NXRERR 005176 G PRIO7 = 000340 G RBPCRA 015131 
LSPRIO 002042 G L10053 034676 NXRX 003675 PRMESS 014062 RCVHIA 002250 G 
LSPROT 021754 G L10054 035324 NXTU 022210 002264 G RCVLOA 002252 G 
LSPRT 002112 G L10055 035752 OFL_  * 000100 PRMSGE 015422 G ROERR 005104 
LSREPP 002062 G 110056 036334 ONEFIL* 000000 PRMSGO 015602 READ = 000014 
LSREV 002010 G L10057 037010 OSAPTS= 000000 PRMSG1 015647 READY = 000001 
LSRPT 023052 G L10060 037252 OsAU = 000001 PRMSG2 015705 RECMSG 002432 G 
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SYMBOL TABLE 
RECV 002200 G $1.ICE* 002000 TST21I 024516 TS$PTA* 010072 T23ET 030573 
REGSAV 021040 $1.IEO= 010000 TST22I 026032 TSSRPT© 010035 T23L00 026276 
REWIND 010434 G S1.IFM=* 001000 TST23I 031761 T$8SOF= 010070 T230FL 031301 
RMCHBE= 000167 S$1.IHE= 000400 TST24I 043172 TS$SRV= 010026 T23PAC 030360 
RMCHEN= 000200 $1.IID= 004000 TSTS9I 051450 T$$SUB= 010063 T23PK2 030470 
RMMSGB= 000104 $1.IiR= 020000 TST40I 052756 T$$SW © 010001 T23PK3 030510 
RMMSGE= 000117 $1.I2R= 040000 TTIBFRe 177562 TSSTES* 010066 T23RES 031776 
RMPKTB= S$1.PAR= 100000 TTICSR= 177560 G 023634 G Te 031160 
RMPKTE*= 000027 S2.ATI* 000010 TTION 052200 T2 024674 G T23RSZ 20 
= 010000 S2.8TI= TTION2 044604 T2.1 024734 T23RT2 032070 
RWPACK 010550 S2.D0IM= 000200 TTIVEC= G T21AM3 024375 T23RTS 0321352 
sc = 100000 S2.ILW= 000100 TTOBFR= 177566 T2168FR 024170 T23RWN 031111 
SCE * 020000 INR= 000020 TTOCSR= 177564 T218F2 024270 T23SSR O 1) 
SCME 004711 S2.0UT= 000040 TUv2A 00 G T218S0 024270 T23SZ 030516 
SCMENU S2.UND= 000003 TVECSA 052202 T218S1 024271 T2382 030524 
SDELAY 010330 TBLEND= 0030350 G TVSAV2 044606 T210AT 024160 T2383 
SEEK «= TCOASC TSARGC= T210LY 024276 T23TM 030736 
SELASC 021346 006400 TSCODE= 001130 T21L00 023674 T23TMA 031025 
SELDAT= TEMP1 003064 TSERRN= 001276 T210FL 024475 T23vCK 031545 
SEL2 = 000002 TEMP2 003066 G TSEXCP= T21PAC 024150 T23wB 8 030512 
SETMAP 020270 TERCLS= 000016 TSFLAG= T21PK2 024260 T23wO 030530 
SETU 022274 TESTNO= 000007 TSFREE* 053454 T21RES 024540 T23wOC 031443 
SFFMSG 011746 G TEXASC 006137 TS$GMAN= 000000 T21RT2 024630 T23wOO 031354 
SFHERR 003603 TFCASC 006241 TSHILI* 000007 T21SSR 024300 T23WOR O 
SFIERR 003550 TIMEXP 016422 G TSLAST= 000001 T21S2 024272 T23wSS 031672 
SFIMSG 011666 G TIMSGO 016450 TSLOLI= 000000 T2183 024274 T24AM3 042160 
SFPTBL 002134 G TINERR 011653 TSLSYM= 010000 T22AM3 35 T24BA 042512 
SIFLAG 003106 G TB = 1 TSLTNO= 000007 T22BFR O25222 T24BFR 040570 
011620 TKS © 177560 TSNEST= 000000 T228F 2 T24BF2 040710 
SKIP 030320 TMPBFR 002576 G TSNSO = 000000 T228S0 T24B80T 041553 
SKIPT 003332 TNAM 017604 T$NS1 = 000005 T22B8S1 025321 T248SO 040710 
SOFINI 016644 G T * 177566 TSNS2 = 000002 T22DAT 025210 T24BS1 040711 
SPACE 010140 G TPRISA 052204 TSPCNT= 000000 T22FOR 0253534 T24CON 040722 
SPM1 053242 TPS = 177564 TSPTAB= 010072 T22L00 024734 T24DAT 
SPM4 053306 TPSAV2 044610 TSPTHV= 000001 T220FL 025535 T240LY 040726 
053336 TRANST 002134 G TSPTNU= 000001 T22PAC 025200 T240TA 041620 
SPM7 053366 TSBA = 177776 G TSSAVL®= 177777 T22PK2 025310 T24EOT 041706 
SRO = 177572 TSBAH = 177777 G TSSEGL* 177777 T22P0S 025332 T24ILA 041302 
SR1 == 177574 TSBAL = 177776 G TSSIZE= 000005 T22RD 025326 T24L0N 042652 
SR2 = 177576 TSOB * 177776 G T$SUBN*= 000000 T22RES 026066 T24L00 032224 
SRS = 172516 TSOBH © 177777 G TSTAGL® 177777 T22RT2 026160 T24L0P 042734 
SSRs TSOBL = 177776 G TSTAGN=® 010074 T22RWJ 025704 T24L0Q 041366 
STATCO 012244 TSFCOD 006740 TSTEMP= 000010 T22SSR 025340 T24LOR 041002 
SVCGBL = TSREJ = TSTEST= T22s2 2 T24NEF 040730 
SVCINS= 000000 TSSDEF 006310 TSTSTM* 177777 T2283 025324 T24NXM 041141 
SVCSUB= 000001 TSSR = G TSTSTS= T22TM 025610 T240FL 042225 
SVCTAG= 000000 TSSRBI 003400 G T$$AU = 010031 T22vCK 025757 T24PAC 040550 
SVCT5T= 000001 TSSRFO 006117 TS$AUT= 010033 T22WRT 0253350 T24PBP 043016 
S$_SYM= 010000 TSSRH = 000001 G TSSCLE* 010034 T23AMS 031233 T24PK2 
SO. IDB= 000010 TSSX 003716 TS$DAT= 010073 T238A_ 031620 T24PK3 040700 
SO.IFB= 000002 TSTBLK 002720 G T#80U * 010032 T238FR 030400 T24RB 040702 
SO.IFP= 000001 TSTCNT 002162 G TS$HAR= 010067 T238F2 030522 T24RES 043240 
SO.ILD= 000020 TSTEND 017620 T$sHwW = 010000 T238S0 030522 T24RN 040716 
SO.ION= 000040 TSTFLA 002260 G TSSINI* 010030 T238S1 030523 T24RNC 042105 
SO.IRD= 000100 TSTLOO 017356 G TS$$MSG* 010025 T23CON 030534 T24RT2] 043332 
SO.IRW= 000004 TSTPTR 002262 G T$sPC = 000001 T230AT 030370 T24RT3 043374 
SO.ISP= 000200 TSTSET 017410 G TS$$PRO= 010027 T23EOT 030660 T24RWN 042036 
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SYMBOL TABLE 
T24SSR 041447 T3S8MS2 0463524 TS9PK4 050770 wC.IiT= 000040 XSOWLE= 004000 
T24SZ 040706 T38MS4 046026 TSORES 051412 wWwC.ISR= 000020 XSOWLK = 
T24S2 040712 T38MSS 046105 TSORL 051406 WF .IED= 000010 XS1CON 015243 
T24S3 040714 T38MS6 046162 T39SIZ 050776 WF. IER= XS2CON 015310 
T24T 041765 T36NE 045400 T39TAD 050240 WF .IHI* 000200 XS3CON 015355 
T24TRL 043104 T38OFL C45772 T3OWPN 051244 WF .IRE* 000040 XXCOMM 003070 G 
T24vCK 042437 T3SBONL 045676 T39WR 050772 WF .IWF= 000020 X$ALWA®= 
T24wB 040702 T3B8ONM 045740 TSOWRT 051171 WF .IWR= 000100 X$FALS= 000040 
T24WOC 042366 T38PAC 044620 14 032160 G WF .I3SR= 000002 X8OFFS= 000400 
T24WOD 042300 T38PK2 045320 T4.1 032224 WF.I4R= 000001 X$TRUE= 000020 
T24WOE 041501 T38PK3 045350 4.10 037270 WRTCHR 010332 G X1.COR= 020000 
T24WOF 041225 T38PK4 045370 T4.11 037562 WRTERR 005011 X1.0LT= 
T24W0G 041052 TSBRES 047044 T4.12 040052 WRTMSG 004754 X1.MBZ= 017375 
T24WOR 040720 T38SIZ 045376 T4.2 033014 XFERAS 016610 X1.RBP= 
T24WwSS 042563 T38SST 046240 14.3 033562 XNXM 017276 X1.SPA= 040000 
026226 G T38TAD 044650 14.4 034256 XORBFO 007426 X1.UNC= 000002 
T3.1 026276 T36WLE 045602 14.5 034714 XORFOR 007544 X2.BUF = 000100 
T3.2 T38WOK 046430 14.6 035342 XSTO = 000006 G X2.ExXT= 000200 
™3.3 027320 T36WR = 0455572 14.7 035770 XST1 = 000010 G X2.0PM= 100000 
13.4 027526 T36WRL 045541 14.8 036352 xST2 = 000012 G X2.RCE= 04 
T3.5 030014 T38WRT 045455 14.9 037026 xST3 = 000014 G X2.REV= 000077 
T38ASC 047507 T39BFR 050246 T4ONE 052711 xST4 =» 000016 G X2.SPA= 035400 
T38ASN 047526 T398SO 050240 T4ONSR 052772 XSOBOT= 00000. X2.UNI= 000007 
T38ASO 047404 T398S1 050241 TS 043426 G XSOCON 015176 x2.WCF = 
T38AS1 047451 T398S2 05024; T6 047556 G xSOEOT= 1 X3.0CK= 000010 
T38BFR 044636 TS9DAT 05141 17 051500 G XSOIE = 000040 x3.MBZ= 
T38BSO 044630 T390LY 050224 VAM #= 000200 G XSOILA= 000400 X3.MDE= 177400 
T38BS1 044631 T390TA 050740 UNITN 002150 G XSOILC= 001000 X3.0PI= 000100 
T38BS2 044632 T39EAI 050746 UNREC = 000 XSOLET= 020000 X3.REV= 000040 
T38CNT 047552 T39MCL 0513525 usI 004021 XSOMOT= 000200 X3.RIB= 000001 
T38DAT 047042 T39NE 051003 WAITF 017120 G XSONEF = 002000 X3.SPA= 000200 
T38OLY 044612 TSONFL 051000 we. IFA» XSOONL = 000100 X3.TRF= 000020 
T38D0TA 045330 T390F2 051062 wC.IFE= 000002 XSOPED= 000010 X4.HSP= 100000 
T38EAI 045336 T390N2 051126 wC.IGO= 000001 XSORLL*= 010000 X4.MBZ= 017400 
T38EB 48045312 T39PAC 050230 wC.IRE= 000010 XSORLS= 040000 X4.RCE= 040000 
T38ID 046466 T39PK2 050730 WC.IRW= 000004 XSOTMK= 100000 X4.TSM= 020000 
047102 TS9PK3 050760 wC.I0T= 000100 xSOVCK= 000020 X4.WRC= 000377 


- ABS. 053454 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 29424 WORDS ( 115 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:30:09 
CZTKFA.BIC,CZTKFA/-SP=SVC/ML ,CZTKFA 


a 


